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1.0 abstract 


this program allows the user to check-out or debug the mnckw 
programmable real-time clock. the logic test is self contained 
and needs no external maintenance hardware oor operator 
intervention with only one exception: if the customer hardware 
connected to the mnckw could inject signals on st2, stl, or slave 
in inputs, it must be disconnected. 


— though the mnckw is a 3 a Haig gs was 

signed to run on an — amily computer. if the user is 
unfamiliar with an isi-T1 should review sections 8.4 and 8.5. 
a software switch register is included with this program. it can 
be used on an (si-11 or by cpu's that have hardware switch 
registers, see section 8.6. 


every effort was made to make this program conform to lsi-11 
Oren 7 restrictions, however; the user should read sections 


requirements 


equipment 


1. pdp-11 at Sages with 8k of memory (or more) an i/o 
terminal (1a36, vt100, etc.) 


2. mnckw under test. 


storage 
this program occupies and uses only the lower 8k of memory. 





3.0 loading procedure 


l 


paper tape method 

standard procedure for normal binary tapes should be followed. 
absolute loader must be in memory. 
place binary tape in reader. 
type address *7500 (* determine by location of loader). 
type ‘'g’’ (program will be loaded into memory). 

the program can also be loaded by xxdp, act, or apt. 


rydp based method 
standard procedure for normal xxdp operation should be followed. 
ensure that the diagnostic disk is installed in drive 0. 


boot the disk by typing '173000g'' if in the micro-code odt 
state or cycling the power ‘‘on-off'* switch. 


upon successful booting, the diagnostic monitor will identify 
itself and inform the operator of selectable options. 


the operator should type ‘'r mncb’’ followed by depressing the 
“return’’ key. this operation will load the diagnostic into 
memory and start the program at location 200. 





Starting procedure 


control switch setting 


before starting the x Mitchie set all switch register bits as 
desired, see section 5.1. 


starting addresses 


200 start of program 
204 restart of program 
210 tester starting address 


program and/or operator action 


the operator must type a single test indicator character followed 
by a ‘‘return’’. the following characters are used: 


l logic test with no dwarf connected. 
logic test with dwarf connected. 
base or vector address changes. 
get new switch register value. 


help operator and retype this List. 








5.0 operating procedure 


5.1 switch register function 


swr bit octal function when set 


error 

test 

error typeout 

sizing the number of mnckw's 
iterations (short pass) 
error 

error 

test in swr <7:0> 


eed etd od od od 


BOO=NWEA 


scope loops 


if an error occurs and the user wishes to scope the error, 
‘Sswreg’’ should be altered to ‘100000"' at the start of the test 


to halt on error 
cpu enters ‘‘odt 
on current test and inhibit error typeout, then type ‘p"’ 
continue program execution. 


: then when the program halts on error and _ the 
', ‘$Sswreg'’ should be altered to ‘060000"' to loop 
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5.3 program and/or operator action 


5.3.1 


5.4 


logic test 


the first pass through the program will be made with iterations 
inhibited. successive passes will enable iterations if swr11=0. 


if not inhibited by apt, the program will look for more mnckw's 
to exercise, one pass will exercise all mnckw's. 


the program will report the number of mnckw's found before 
starting the logic test. 


at end of pass when all units have been tested, the following 
typeout will occur: 


“Yendpass 12 - total errors 4 zbad units 0000000000000100 


this indicates that the program has completed 10 decimal passes. 
during that time 4 decimal errors were detected. also we tested 
4 units and the third unit was the only unit to fail. 


inhibiting auto-size feature 


this program will automatically auto-size and test each mnckw it 
detects on the system. to inhibit this feature, set switch 
register bit 12 or set bit 15 of location ‘Senvm'’. also, to test 
an_individual mnckw in a group, set this bit and refer to section 
3.2 for changing the base address of the mnckw under test. 


SEQ 0007 





errors 


error printout 


printout varies with the error detected. the error pc typed out 
is the actual location of the error call. 


non-standard error halts 


any halt in the trap catcher area locations 000000-001000, 
indicates time-out or illegal instruction hardware trap. 


restrictions 


external inputs 


external inputs such as ‘‘slave in’’, ‘‘st1"’ and “'st2’’ must not be 
connected to any customer hardware that might generate these 


signals while the diagnostic is running. 


possible program *bombs"’ 


the first two tests of this program check to see if the mnckw 
responds to the address the program thinks its at. if the mnckw 
does not respond, a bus error occurs. also bus errors can occur 
during the time the program sizes to see how many mnckw's are on 
your system. 


for more information on the next subject, see jan. 1976 (si-11 
engieering bulletin issued by the digital components group. 


bus errors may alter the preset contents of location 4 before the 
trap is executed, thereby transferring program control to area in 
the program that was not set up to handle the trap. if this 
ceapent. the program will ' ** and possibly rewrite parts of 
itself. 


miscellaneous 


power fail 


after a power failure occurs, the program execution will continue 
at the point where the power occurred. the program will type 
power 


xxdp, act. apt 


the program is chainable under xxdp, act, or apt. al though 
“‘apt hooks’’ have been installed, they have not been tested. 


execution time (logic test) 


0.5 minutes (30 sec) iteration inhibited - no errors 
2.5 minutes (150 sec) with iterations - no errors 
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SEQ 0010 
8.4 lsi-11 ‘‘odt’’ commands 


format description 


<cr> return close opened location and accept next 
command 


<lf> Line feed close current location; open next sequential 
location. 


“ (uparrow) open previous location. 


_ (left arrow) take contents of opened location, indexed by 
contents of pc, and open that location. 


take contents of ned location as absolute 
address and open that location. 


open the word at loation r. 
reopen the Last location. 


$n/ or rn/ open general register n(0-7) 
s(ps register). 


r;:gorrg goto location r and start program. 


nl execute bootstrap loader using nN as device 
csr. console device is 1775 


proceed with program execution. 


erases previous numeric character. response 
is a backslash (\). 


entering lsi-11 ‘‘odt’’ 
the halt or odt microcode state of the kdilf (lsi-11 module) can 
be entered in five different ways (others are a subset of these) 
from the run state: 

execution of a lsi-11 halt instruction, 
2. a double bus error, 

as a power up option, 


ascii break with div11 framing error asserting the b halt 
line (enabled by jumper of dlv11) 


upon enteri the halt state, the kd11f responds through the set 
of commands listed in section 84. 





SEQ 0011 
8.6 use of program software swr 
the program software switch register is enabled if 
1. mo hardware swr exists; 


2. if you start with all ones (swr=177777) in the switch 
register. 


the software switch register may be ch od typing “g (control 
and letter g — typed simultaneously). when “g 1s typed, the 
program responds by typing ‘'swr=xxxxxx'" where xxxxxx equals the 
former contents of the switch register. 


if you wish to keep the current value, t <cr>. if you wish to 
change the value, type the new value followed by a <cr>. 


it is important to note that the diagnostic is not running after 
the “g until a <cr> is typed. 


tester starting address 


a special es address has been provided for manufacturing to 
use to inform the program that the clock module is cabled to an 
in-house tester. 


manual intervention is needed in this sequence of testing. the 

program will type out all instructions. a cable should connect 

j1 on the clock module to the tester. switches 1 and 3 of s2 (on 

oy giack module) should be on, all other switches on s2 should 
off. 


8.8 logic test with a dwarf connected 
more complete testing of the clocks i/o signals can be made if a 
dwarf module is connected to the clock. if you do this, select 
*‘d’’ to run the logic test with the dwarf tests enabled. 


a series of instructions will be typed out for you to follow. 
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OPERATIONAL SWITCH SETTINGS 
TRAP CATCHER 

BASIC DEFINITIONS 

ACT11 HOOKS 

APT ge) _ BLOCK 


RROR TABL 
a A tL THE COMMON TAGS 
TYPE PROGRAM NAME 


GET VALUE FOR SOFTWARE SWITCH REGISTER 
KEYBOARD COMMAND DECODER 
DETERMINE THE NUMBER OF MNCKW'S ON THE SYSTEM 
UBROUTINE TO PRIME _ BASE AND VECTOR VALUES 
THE 1.D. LINE CODE IF ON THE TESTER 
THE ADDRESSABILITY OF CLOCK CSR 
THE gor tay tS OF CLOCK BUFFER R 
T LOC STATUS REGISTER BIT 14 
STATUS REGISTER BIT 13 
STATUS REGISTER B 1 


222° 
ate 


EG. 
C 
Cc 
Cc 


CAN 
CAN 
CAN 
CAN 
CAN 
CAN 
CAN 


x 
sanemainaiiadeadiie 
rr] 

—t 


O—NrWEUED 
FR PRR A a a a 


CLOCK A STATUS REGISTER BI 
PATERN 125252 WILL SET AND CLEAR IN BUFFER REG. 
PATERN 052525 WILL SET AND CLEAR IN BUFFER REG. 


* 
* PHASE 2 ADVANCED BASIC LOGIC TESTS 
& 


THE LOW BYTE OPERATION OF CLOCKS STATUS REGISTER 

THE HIGH BYTE OPERATION OF A A'S STATUS REGISTER 

CLOCK'S COUNT REGISTER WITH 125252 PATTERN 

CLOCKS COUNTER REGISTER WITH 052525 PATTERN 

THAT INIT CLEARS STATUS eeiitie 

THAT INIT CLEARS BUFFER REGIS 

THE SETTING OF MAINTENANCE sto. IN CLOCK BIT 15 TO SET 

THAT ST1 FLAG SETS ON MAINTENAN 11 

THAT BITOO IN CLOCK STATUS REG. WILL SET WHEN BIT13 AND MAIN. ST2 


* 
*PHASE 3 COUNT TESTS 
* 


*TEST TO SEE IF THE COUNTER he INCREMENT 
*SEE IF CLOCK WILL COUNT UP FROM A ZERO BASE, rs ST1 
T THAT OVERFLOW (CSR BITO7) WILL SET ON OVERFLOW 

THAT OVERFLOW WILL CLEAR THE GO BIT 
THAT GO BIT DOES NOT CLEAR ON OVERFLOW, IF MODE 1 
THE ABILITY OF CLOCK RATE 
THE ABILITY OF CLOCK 
THE ABILITY OF CLOCK 
THE ABILITY OF CLOCK 
THE ABILITY OF CLOCK 
THE ABILITY OF CLOCK T EQ RATE 
THAT COUNTER DOESN'T COUNT WHEN ‘‘SLAVE IN'’ RATE IS SELECTED 
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T45 *TEST THAT THE CLOCK WILL COUNT IN MODE 1 
* 

*PHASE 4 CLOCK INTERRUPT TEST. 

® 


*TEST THAT THE CLOCK WILL INTERRUPT ON OVERFLOW 
*TEST THAT ST2 WILL CAUSE AN INTERRUPT 
*TEST THAT ST1 WILL CAUSE AN INTERRUPT 


/ 
*PHASE 5 ADVANCED TESTING 
* 


*TEST THAT THE ‘FOR’ BIT WILL SET ON 2 ST2°S 
“TEST THAT THE ‘FOR’ BIT WILL SET ON 2 ST1°S 
*TEST THAT FOR BIT WILL SET ON TWO OVERFLOWS 
THAT FOR BIT WILL CLEAR IF GO BIT IS SET 
THAT WE CAN DISABLE THE INTERNAL OSC 
THAT CLOCK CAN BE COUNTED USING MAINTENANCE OSC 
THE CLOCKS IMHZ DIVIDER 


TION 
EST MODULE TEST OF OVERFLOW OUT.ST2 IN AND OUT,AND ST1 IN 
*DWARF TEST OF OVERFLOW OUT.ST1 IN AND OUT.AND ST2 IN. 
*IF ENABLED,CHECK THRESHOLD ST1 — TESTOR 
*ST1,ST2 THRESHOLD TEST #2,POTS 
*ST1,ST2 THRESHOLD TEST #3 MID RANGE 


' sTEST CLOCK REPEATABILITY IF ON TESTOR 
174 END OF TESTS 
END OF PASS ROUTINE 


*SYSMAC ROUTINES 


BINARY TO OCTAL (ASCII) AND TYPE 
BINARY TO ASCII AND TYPE ROUTINE 
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
ERROR HANDLER ROUTINE 
ERROR MESSAGE TYPEOUT ROUTINE 
SCOPE HANDLER ROUTINE 
TTY INPUT ROUTINE 
READ AN OCTAL NUMBER FROM THE TTY 
TYPE ROUTINE 
APT COMMUNICATIONS ROUTINE 

DOWN AND UP ROUT 


POWER INES 
TRAP DECODER 

TRAP TABLE 

ASCII MESSAGES 
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TITLE CVMNC-B MNCKW =6DIAGNOSTIC 
:*COPYRIGHT (C) 1978 

[*DIGITAL EQUIPMENT CORP. 
eaiieaad MASS. 01754 


: PROGRAM BY EDWARD C. BADGER AND SUBMITTED BY R. SHOOP 


eTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
; *PACKAGE (MAINDEC=11-DZQAC=C3), JAN 19, 1977. 


$TN=1 
.SBTTL OPERATIONAL SWITCH SETTINGS 
SWITCH 


HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR TYPEOUTS 

INHIBIT SIZING THE # OF MNCKW'S 
INHIBIT ITERATIONS 

ENABLE LINE FREQUENCY RATE TESTING 
LOOP ON ERROR 

LOOP ON TEST IN SWR<7:0> 


-SBTTL TRAP CATCHER 


. 
eenepneneepnennnee 


Be Be Be Be Be Be Be Be Se Be He 


-=0 

2 *ALL ean be LOCATIONS FROM 4-776 CONTAIN A ‘'.+2"' 
7*AND "JSR PC,RO’’ SEQUENCE TO CATCH ILLEGAL INTERRUPTS . 
> *AND INTERRUPTS TO THE WRONG VECTOR. 
i sLOCAT ION 0 CONTAINS A 0 TO CATCH IMPROPERLY LOADED 
ad . 


IOTRD 200 HANDLE BUSS ERROR. 


«WORD 0 SOFTWARE DISPLAY REGISTER. 
0 SOF TWARE SWITCH REGISTER. 


104,200,2 :1F ‘B EVENT’ ON Q-BUS IS 
;CONNECTED,WE NEED A WAY OF 
IGNORING ITS INTERRUPTS. 


@ASTART 3;MAX. OF 8 UNITS 
@ARESTRT RESTART ADDRESS 
TESTER ; TESTER STARTING ADDRESS 


-SBTTL BASIC DEFINITIONS 

:*INITIAL ADDRESS OF THE STACK POINTER *** 1100 *** 
STACK= 1100 

-EQUIV. EMT,ERROR 7:BASIC DEFINITION OF ERROR CALL 
EQUIV I0T,SCOPE 7sBASIC DEFINITION OF SCOPE CALL 


; *MISCELLANEOUS DEFINITIONS 
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3;CODE FOR HORIZONTAL TAB 

;;CODE FOR LINE FEED 

3;CODE FOR CARRIAGE RETURN 
000200 200 3;CODE FOR CARRIAGE RETURN-LINE FEED 
177776 ; PROCESSOR STATUS WORD 


177774 3STACK LIMIT REGISTER 

177772 3;PROGRAM INTERRUPT REQUEST REGISTER 
177570 7 ;HARDWARE SWITCH REGISTER 

177570 3 ;sHARDWARE DISPLAY REGISTER 


Lr 


ee Ne ee a ee ee ee ee ee ee ee ee ee ee ele eee ae ae le ae ee ee eee ee ee ewe wee 


REGISTER 
REGISTER 


PR1= 

PR2= 

PR3= 

PR4= 

PR5= 

PR6= 00 

PR7= 3 sPRIORITY LEVEL 


3*"‘SWITCH REGISTER’’ SWITCH DEFINITIONS 
Sw15= 100000 
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-EQUIV Sw03,SW3 


-EQUIV SWw00,SWO 
:*DATA BIT DEFINITIONS (B1T00 TO BIT15) 
BIT15= 100000 


B1T01.B1T1 
B1T00,B1T0 


A tall TRAP VECTOR or 
TIME OUT AND OTHER ERRORS 
faci AND ILLEGAL INSTRUCTIONS 
: TRACE TRAP 
BREAKPOINT TRAP (BPT) 
aie TRAP (IOT) **SCOPE** 


R_ FAIL 
: sEMULATOR TRAP (EMT) **ERROR®** 
""TRAP’’ TRAP 


SITTY KEYBOARD VECTOR 
‘TTY PRINTER VECTOR 
PIREVEC=940 < PROGRAM INTERRUPT REQUEST VECTOR 


171020 ABASE= 171020 
000440 AVECT1= 440 
000200 APRIOR= 200 


167400 $SWR= 167400 
000001 $TN= 1 


me ee ee me el me ee el ee ee ek ed ad wd od od I od = 
eee Ns a es eee eee ee eee ae eae ae ee ee eee YY Yew ww YY ww 
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-SBTTL ACT11 HOOKS 
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DIBA RESIS ISIC IOUS III IOI III RR 
;HOOKS REQUIRED BY ACT‘1 
000214 et gi SAVE PC 


000046 
014704 321)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 


S2 
000000 + 52)SET LOC. Pt TO ZERO 
000214 = :3 RESTORE P 
001000 -=1000 

-SBTTL APT PARAMETER BLOCK 


DRA A ARRAS IIEIII IIIS IIIS IIIT 
SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
DAES ER OOOO II IIR IR RR IRE 
33SAVE CURRENT LOCATION 
3:SET POWER FAIL TO POINT TC START OF PROGRAM 
33FOR APT START UP 
+ POINT TO APT INDIRECT ADDRESS PNTR. 
INT TO APT HEADER BLOCK 
:ZRESET LOCATION COUNTER 
LDS H GSES IE EEO ISIS EIEEIISOIIOSE IS SOESNUNSO ono i intiniiiiioniin 
SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
; INTERFACE SPEC. 


SAPTHD: 

$HIBTS: 0 3;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

SMBADR : : sADDRESS OF APT Ao (BITS 0-15) 

STSTM: ;;RUN TIM OF LONGEST TEST 

SPASTM: : RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

SUNITM: 120. ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
. SETEND-SMAIL/2 3;LENGTH MAILBOX-E TABLE (WORDS) 


Ne ee a et it 
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( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


ee ee eed ed a aL) ed td td od = a FL) SY) 





. = 
CVMNC-8 MNCKW DIAGNOSTIC MACY11 30A(1052) 23-OCT-78 11:08 PAGE 59-4 
CVMNCB.P11 18-SEP-78 18:03 COMMON TAGS SEQ 0018 


-SBTTL COMMON TAGS 


FREER RRRERERERREREREERERERERERRREE RARER E RRR RARRRERE 


TRTHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
[*USED IN THE PROGRAM. 


SCMTAG: 3¢START OF COMMON TAGS 

CONTAINS THE TEST NUMBER 

36 ERROR FLAG 
SUBTEST ITERATION COUNT 
SCOPE LOOP ADDRESS 
SCOPE RETURN FOR ERRORS 
TOTAL ERRORS DETECTED 
hs CONTROL BYTE 


ERRORS PER TEST 
PC OF LAST ERROR —— 
*GOOD* DAT 


3 AINS DATA 
3 sRESERVED--NOT TO BE USED 


3 AUTOMATIC MODE INDICATOR 
3. INTERRUPT MODE INDICATOR 


;zADDRESS OF SWITCH REGISTER 
asa tae OF DISPLAY REGISTER 
TTY KBD STATUS 
;TTY KBD BUFFER 
STTY PRINTER STATUS REG. ADDRESS 
TITTY PRINTER BUFFER REG. i 
23 CONTAINS NULL CHARACTER FOR FILLS 
sCONTAINS # OF FILLER CHARACTERS REQUIRED 
ZS INSERT FILL CHARS. AFTER A ‘LINE FEED’ 
3" TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES) 
NUMBER OF ITERATIONS 
STESCAPE ON ERROR ADDRESS 
SE CODE FOR BELL 
3 sQUESTION MARK 
eas RETURN 
: 3sLINE FEED 
SL AAA RARER EERE REE REE ERERREERR EERE RERREREREKERKERERE EERE ERE 


-SBTTL APT MAILBOX-ETABLE 


SAAR EERE REAR EREERERERREREREEERRERE EERE RE 


3; APT MAILBOX 
s MESSAGE TYPE CODE 
: FATAL ERROR NUMBER 
ss T NUMBER 


2233595455353 54555555544 
ee eee 
SRAENSRRVSAARNSKRAVS 

felelelelelelelelolor jeolelelelelelole) 


8888888888838sss 
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ee me ee me ee me ee ee eh ee ek ee ee ee ek ee ee ed ee ed ed td td td ws i fL) — 
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UN 
3 :MESSAGE ADDRESS 
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11 
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aaa em LENGTH 

APT ENVIRONMENT TABLE 
ENVIRONMENT BYTE 
ENVIRONMENT MODE BITS 
3:APT SWITCH REGISTER 
a, SWITCHES 


;CPU_TYPE,OPT eo: 
iTS IS-115CPU T YPE 
1/04=01,11/05=02,11/20=03,11/40=04,11/45=05 
11776=06,PD Q=07,0=10 


BIT 10= REAL TIME cL LOCK 
BIT 9=FLOATING POINT ———— 
8=MEMORY MANAGEMENT 


BIT 
: ;HIGH ADDRESS M.S. BYTE 
PE ,BLKAT 


-BL 
MEM.TYPE BYTE == (HIGH BYTE) 
900 NSEC CORE=001 
300 NSEC BIPOLAR=002 
500 NSEC ~- g 003 
: HIGH ADDRESS ,BLK& 
MEM.LAST ADDR. =3 BYTES, THIS WORD AND LOW OF ‘'TYPE’* ABOVE 
;;HIGH ADDRESS,M.S. BYTE 
2 7MEM. TYPE ,BLKA2 
33MEM.LAST ADDRESS .BLK#2 
3;HIGH ADDRESS .M.S.BYTE 
2 3MEM. TYPE ,BLK#3 
tie LAST ADDRESS ,BLK#3 
“H_ ADDRESS .M.S.BYTE 
: INEM. TYPE ,BLKA4 
3;MEM.LAST ADDRESS ,BLK&4 
TEINTERRUPT VECTOR#1,BUS PRIORITY#1 
ZEINTERRUPT VECTOR#2BUS PRIORITY#2 
3;BASE ADDRESS OF EQUIPMENT UNDER TEST 
; DEVICE MAP 
3;CONTROLLER DESCRIPTION WORDA1 


SEQ 0019 
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-SBTTL ERROR POINTER TABLE 


ee TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE ih IS PERTINENT. 
; *NOTE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC). 
> *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


3sPOINTS TO THE ERROR MESSAGE 
;;POINTS TO THE DATA HEADER 
;;POINTS TO THE DATA 
3sPOINTS TO THE DATA FORMAT 


Ca ee ae ap ae at ee a ee i 
et kd td td od = ed 
eee ee eles ae le ele es ae 


sCLOCK SR oot ERROR 
sERRPC ASR $/B 
;SERRPC ASR, SEDDAT. SGDDAT 

024402 TALL NUMBERS ARE IN OCTAL FORM 


: 2 
021730 :CLOCK SR DATA ERROR 
022604 sERRPC ASR WAS 
024262 7 SERRPC ,ASR,SBDDAT , SGDDAT 
024402 ALL NUMBERS ARE IN OCTAL FORM 


021772 ;CLOCK BR DATA ERROR 

022651 SERRPC ABR WAS 

024304 SERRPC ,ABR, SBDDAT , SGDDAT 
024402 TALL NUMBERS ARE IN OCTAL FORM 


; INTERRUPT ERROR. 

SERRPC TO te ADDR. 

7 SERRPC, RTO, TRFRO 
024402 ALL NUMBERS are IN OCTAL FORM 


: 5 
022073 ;CLOCK COUNT REG ERROR 
022604 sERRPC ASR WAS  S/B 
024262 SERRPC, ACR, SBDDAT, SGDDAT 
024402 ALL NUMBERS ARE IN OCTAL FORM 


3 6 
022250 ;CLOCK COUNT FUNCTION ERROR 
sERRPC ASR 
SERRPC, ASR 
024402 TALL NUMBERS ARE IN OCTAL FORM 





CVMNC-8 MNCKW DIAGNOSTIC 
CVMNCB.P11 18-SEP-78 18:03 


2 
094409 


022213 
022604 
024356 
024402 
022475 
024402 
022315 
022604 
024262 
024402 
022134 
024402 
177546 
171020 


167774 
167772 
170430 


022635 024276 


MACY11 yey © 


23-OCT-78 


RROR POINTER TABLE 


;1TEM 


14 
EM6,DH2,DT2,DFO 


177546 


ABASE 
ABASE +2 
AVECT1 
AVECT1+2 
AVECT1+4 
AVECT1+6 
APRIOR 


167774 


2. 
11:08 PAGE 60 


;CLOCK INTERRUPT ERROR 


SERRPC ASR 
7SERRPC, ASR 
TALL NUMBERS ARE IN OCTAL FORM 


;CLOCK REPEATABILITY ERROR 


SERROR ASR  2ND CNT 1ST CNT 3RD CNT 
: SERRPC ASR, SBDDAT, SGDDAT, STMPO 
L NUMBERS ARE IN OCTAL FORM 


;CLOCK COUNT ERROR 

TERRPC ASR WAS  S/B 
ZSERRPC, ASR, SBDDAT, STMPO 
TALL NUMBERS ARE IN OCTAL FORM 


CLOCK ADDRESSING ERROR 
OCK ADDR. 
RPC ,STMPO 
ALL NUMBERS ARE IN OCTAL FORM 


:CLOCK I.D. LINES ERROR 
zsERRPC ASR WAS /B 

TSERRPC ASR SBDDAT $GDDAT 
;ALL NUMBERS ARE IN OCTAL FORM 


sEXISTING UNIT FAILS TO RESPOND 


;LINE CLOCK ADDRESS 


VECTOR ADDR. OF ST2 INTRS. 


sADR. OF TESTOR CLOCK 


;BUFFER PRESET REG. 

: TEMP STORAGE. 

[CURRENT UNIT MASK BIT 

[WORKING LOC. TO DETERMINE BAD UNIT # 

; INCREMENT TO THE NEXT MNCKW BASE ADDRESS 

S INCREMENT TO THE NEXT MNCKW VECTOR ADDRESS 

S INDICATOR IF THE UNIT COUNT HAS BEEN REPORTED 
POINT TO DEVICE UNDER TEST. 
SKEEPS TRACK OF GOOD UNITS. 


SEQ 0021 





J 2 
CVMNC-8 MNCKW DIAGNOSTIC MACY11 30A(1052) 23-OCT-78 11:08 PAGE 60-1 
CVMNCB.P11 18-SEP-78 18:03 ERROR POINTER TABLE SEQ 0022 


0 COUNTS ERRORS. 
0 :COUNTS DEVICES TESTED. 
;MAX DEVICES TO BE TESTED. 
OTAL UNITS TESTED. 
s INDICATE IF TESTOR/DWARF MODULE PRESENT 
; (=1,YES DWARF, =81T15, YES TESTOR) 
721 WHEN QUESTION ASKED IN RUN. 
sRESTART INDICATOR 


TEMP1 ;CLEAR RESTART FLAG 
#1, TSTCNT OAD MAX UNIT 


aL UNIT COUNT 
-~ hlaneavend INDICATE TESTER CONNECTED 


#8. ,TSTCNT TEST UP TO 8 UNITS. 
TEMP1 CLEAR RESTART FLAG 
~~ NO TESTER OR DWARF CONNECTED 


7SET RESTART FLAG 


RESET 
INITIALIZE THE COMMON TAGS 
;CLEAR THE COMMON TAGS (SCMTAG) AREA 
MOV #SC. eet eaR LOCATION TO BE CLEARED 
oS :CLEAR MEMORY LOCATION 
— -~6 LOOP BACK IF NO 
STACK, SP :ESETUP THE STACK POINTER 
INITIALIZE A FEW VECTORS 
MOV #SSCOPE ,@#IOTVEC ;;10T VECTOR FOR SCOPE ROUTINE 
#340, a#iOTVEC+2 ;:LEVEL 7 
#SERROR , AFEMTVEC oie VECTOR FOR ERROR ROUTINE 
ees awEMTVEC+2 sel VEL 7 
WSTRAP,@#TRAPVEC :; Tra VECTOR FOR TRAP CALLS 
#340, a#TRAPVEC+2;LEVEL 7 
EC 9 omen VECTOR 


,@4PWRV 
es awPWRVEC+2 sel 
TIMES NITIALIZE NUMBER OF ITERATIONS 
CLEAR THE ESCAPE ON Ser ADDRESS 


ALLOW ONE ERROR PER 
: INITIALIZE THE LOOP ADDRESS FOR SCOPE 
MOV #. ,SLPERR 3S THE ERROR LOOP ADDRESS 
::S1ZE FOR A HARDWARE yh REGISTER. IF NOT FOUND OR IT IS 
3;EQUAL TO A ‘1"', SETUP FOR A SOFTWARE SWITCH REGISTER. 
MOV @#ERRVEC,~ USP) 2:SAVE ERROR VECTOR 
#64$,QWERRVEC  3;SET UP ERROR VECTOR 
ADSWR , SWR tes FOR A HARDWARE SWICH REGISTER 
177570 #DDISP,DISPLAY :;:AND A HARDWARE DISPLAY REGISTER 
177777 #-1,aSWR 7:TRY TO REFERENCE HARDWARE SwWR 
66$ 3 BRANCH IF NO TIMEOUT TRAP OCCURRED 
33 THE HARDWARE SWR IS NOT = ~1 
65$ :;BRANCH IF NO TIMEOUT 
00175€¢ : MOV #65$, (SP) 77SET UP FOR TRAP RETURN 


Ft ae te hi Lt hi a 1 et i a 
ee ed ed nd od od = od SS 
ee Ne es ee ee ee te eae ee 





2 
CVMNC-8 MNCKW  DIAGNOSTI MACY11 30A(1052)_ 23-OCT-78 iy 5 08 PAGE 60-2 
CVMNCB.P11 18-SEP-78 18: 03 INITIALIZE THE COMMON T SEQ 0023 


012737 000176 65$: MSWREG , SWR ~~ TO SOFTWARE SWR 
000174 #DISPRCEG,DISP 
000004 66$: (SP)+, BPERRVEC ” s :RESTORE ERROR VECTOR 


001202 C SPASS 37sCLEAR PASS COUNT 

000200 WAPTSIZE,SENVM :;:TEST USER SIZE UNDER APT 
001403 7$ 33YES,USE NON-APT SWITCH 
012737 001216 MO ASSWREG , SWR TINO,USE APT SWITCH REGISTER 


: OVERLAY 4 LOC OF THE ‘STYPE'’ ROUTINE 
012737 005046 MOV #5046, $TYPE LOWER PS 
012746 #12746, $TYPE+2 
020422 #STYPE+12 ,STYPE+4 
000002 #RTI,STYPE+6 
017030 PC, STKINT ENABLE TKB INTR. 


000000 #0,-(SP) :SET CPU PRIORITY ON RETERN. 
002066 #68$,-(SP) ‘SHOW RETURN ADDRESS. 
“CAUSE A RETURN(PUTS STATUS IN STATUS REG.). 


001204 SDEVCT ZERO DEVICE COUNT. 
021316 V MIOTRD ,Q@MERRVEC ;FIX TRAP CATCHER. 
000340 MO #340, @WERRVEC+2 
-SBTTL TYPE PROGRAM NAME 
3: TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
177777 INC #~1 3sFIRST 5 
r 69$ ——_. IF 
002162 TYPE .70$ PE ASCIZ.S STRING 
.SBTTL GET VALUE FOR SOFTWARE sbitcn REGISTER 
000042 TST ar42 ;;ARE WE RUNNING UNDER XXDP/ACT? 
BNE 7 2 2BRANCH IF YES 
001214 ARE WE RUNNING UNDER APT? 
71$ 7 :BRANCH IF YES 
001140 £3 SOF TUARE SWITCH REG SELECTED? 
BNE 72$ F 


32GET SOF T-SWR SETTINGS 
000403 BR 72$ 
112737 000001 : . 32SET AUTO-MODE INDICATOR 


000422 BR 69$ 3;GET OVER THE ASCIZ 
<CRLF >@CVMNC-8 inucKw (CLOCK) DIAGNOSTICA<CRLF> 


105737 ; SAUTOB iTEST I UNDER A MONITOR 
001407 BEQ 


50$ 

DWARF CLEAR Duane FLAG 
#8. ,TSTCNT [LOAD MAX. # OF UNITS 
LOGIC RUN LOGIC TEST 

TEMP1 TEST IF RESTARTING 
MTEST1 :BR IF YES 





CVMNC-8 MNCKW 
CVMNCB.P11 


DIAGNOSTI 
18-SEP-78 18: 03 


023056 
023231 


003002 
023565 
002462 
000040 
000102 
015024 
000104 
001476 
00000 


1 
002464 
000107 


000110 
000114 
000010 
002464 
001170 


MACY11 


30A(1052) 
KEYBOARD COMMAND D 


-SBTTL KEYBOARD COMMAND DECODER 
MTEST: TYPE PRIMEO 


TY 
MTEST1: 
BI 


PRIME1 


#BIT6,a$TKS 
DWARF 


SPASS 
SERTTL 


EVER 
PC,PRIADR 
DOT 


@(SP)+,RUNIT 
#40,RUNIT 
#°B,RUNIT 
1$ 

BASEXC 
#°D,RUNIT 
3$ 

DWARF 

#1, TSTCNT 
LOGIC 
#°G,RUNIT 
5$ 


MTEST1 


#8. ,TSTCNT 
LOGIC 


SQUES 
MTEST1 
; CHAR. 


2 
tm alaes F mt 208 PAGE 61 


; INFORM THE OPER. OF THE TESTS 


ENABLE TKB INTR 


SINIT “THE ADDR. AND VECTOR 


GET OPER. INPUT 
GET 1ST CHAR 
ENSURE UPPER CASE 
sTEST IF ‘B"’ 
BR IF NOT 
; CHANGE BASE OR VECTOR ADDRESS 
sTEST IF *D"’ 
F NOT 
ISET DWARF FLAG 


INDICATE ONLY 1 UNIT WITH DWARF 


> RUN LOGIC TEST WITH DWARFS 
:TEST IF ‘G"’ 


IF NOT 
3GET SWITCH VALUE 


OF UNITS 
ZRUN LOGIE TEST WITH NO DWARFS 
ZAND RETYPE DOT 


THE OPER. TYPED IN 


SEQ 0024 





M 
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CVMNCB.P11 18-SEP-78 18:03 DETERMINE THE NUMBER OF MNCKW'S ON THE SYSTEM SEQ 0025 


.SBTTL DETERMINE THE NUMBER OF MNCKW'S ON THE SYSTEM 
013737 001126 LOGIC: MOV SBASE , SBDDAT GET BASE ADDRESS 
005037 C MASKN 


SUNIT CLEAR UNIT wo 
000004 #2$ ,ERRVEC [LOAD RETURN ADDRESS 
1$: @SBDDAT : TEST _IF Tyre aie 
001126 VADDR , SBDDAT UPDATE ate DRESS 
SUNIT ;UPDATE UN COUNT 
SENV ;TEST IF D0, oH SIZE"' 
3$ 7BR IF NO SIZ 
176376 eae TEST IF Sw 5 


7BR IF INHIBIT SIZING SWITCH IS SET 
001206 ca mat ;TEST IF MAX NUMBER 


3$ BR IF MAX 
(SP)+, (SP)+ RESTORE STACK 
SUNIT 


3$ I HE 
arse STEST IF XXDP CHAIN MODE 
3$ BR IF YES 
12 BASE ADDRESS CAUSED A BUS TRAP 
014616 


SEOP 
021316 : #IOTRD,ERRVEC  ;RESTORE ERROR VECTOR 
000200 #200, ERRVEC+2 
001460 EVER :TEST IF # HAS BEEN REPORTED 
BM 4$ ‘BR IF IT HAS 
001476 DWARF ‘TEST IF TESTER MODE 
BM of [BR IF TESTER 
023760 FOUND1 ‘TELL OPERATOR # OF MNCKW FOUND 
001206 $UNIT,-(SP) 
024003 .FOUND2 
001206 $UNIT sTEST IF ANY UNITS 
BNE 6$ [BR IF SOME 
014616 SEOP REPORT EOP 
001206 SUNIT, EVER SAVE THE # OF MNCKW'S FOR LATER 
#81115, EVER ‘SET ‘REPORTED NUMBER FLAG'' 


5 
EVER, SUNIT TEST IF ANY HAVE GONE AWAY 
7BR IF ALL ARE STILL THERE 
EVER ,MASKNM zSAVE_FOR ERROR REPORT 
14 ZEXISTING UNIT FAILED TO RESPOND 
SUNIT ;RESET UNIT POINTER 
PC ,PRIADR LOAD BUS ADDRESSES 
#81T0,MASKNM LOAD DEVICE MASK 
BADUNT sRESET BAD UNIT INDICATOR 


ASK 
MDEVCT TESTING FIRST UNIT. 
ERCNT NO ERRORS. 

#1, ROTATE POINT TO FIRST UNIT. 

ROTATE ,UTEST 

~(SP) ;ONE WAY TO LOWER THE CPU INTR. LEVEL 
#TST1,~(SP) 





CVANC-8 MNCKW 
CVMNCB.P11 


DIAGNOSTI 


18-SEP-78 18: 03 


013737 
013737 
2737 


001250 
001244 
170000 
001424 
000002 
001424 
000004 
001430 
000002 
001420 
000002 


001476 


176316 
176310 


N 
MACY11 30A(1052) 23-OCT-78 11:08 
SUBROU 


-SBTTL SUBROUTINE TO PRIME THE 
PRIADR: MOV 


MOV 
FIXADR: 
MOV 


svecrt WecT1 
170000, VECT1 

vecTT. vECTP 

#2, VECTP 

veCTI VECT2 
VECT2 


vECTo. VECT2P 
#2 VEC Top 


#3 BR 


AGE 63 
TINE TO PRIME THE BASE AND VECTOR VALUES 


BASE AND VECTOR VALUES 
;LOAD INITIAL BASE ADDR 
[LOAD INITIAL VECTOR ADDR 
CLEAR OUT PRIORITY BITS. 
SNOW FIX VECTOR #2 ADDR. 


LETS FIX ST2 VECTOR ADDR. 
ITS 4 GREATER ee THE 1ST. 
[VECTOR +2 ADDR 

sFIX som OF PRESET REG= 
SR +2 


RETURN 


EE. , SR .. 1. Son seen ne ee aN ee 


TATEST 1 


*TEST THE 1.D. LINE CODE IF ON THE TESTER 


PUTTT TTI ititi titi itititi iit ti i 


TST1: 
DWARF 
TST2 


@DR, SBDDAT 
#177417, $BDDAT 
#120, $GDDAT 
S$GDDAT , SBDDAT 
TST2 


sTEST IF ON THE TESTER 
NOT 


IF 
“ENSURE TESTER STATUS 
sREAD TESTER REG. <i. D. LINES> 
“MASK OFF OTHER BITS 
;LOAD EXPECTED VALUE 
; COMPARE THE VALUES 
:7BR IF SAME 


SEQ 0026 


| SSSSSSSSSSSSSSSSSSSSSSSE>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 13 REPORT INCORRECT I.D. LINE CODE 
;MUST BE WRONG BOARD OR 1.D. FAILURE 


|  SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
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CVMNCB.P11 18=SEP=78 18: 03 11 *TEST THE 1.D. LINE CODE IF ON THE TESTER SEQ 0027 


SL RRAAAAAAAERALAEEAARREREEEEAARARAARRAAAAERARRAERAARAARERHEH AREAS 


s*TEST 2 *TEST THE ADDRESSABILITY OF CLOCK CSR 


RAR AAARAERARARERAAREARERAEERAARATAAEARARARAERAAARAARRARAARRERERHARERE 


TST2: 
#50 ,.STIMES 3:D0 50 ITERATIONS 
#1$,$LPADR ;:SET SCOPE LOOP ADDRESS 
012737 #1$,SLPERR 


013746 000004 : @VERRVEC = (SP) : SAVE CONTENTS OF ADDRS 6. 

012737 #2$ ,AMERRVEC : SET RS ne TRAP VECTOR TO HANDLER IN CASE. 
;WE TIME-OUT WHEN ADDRESSING THE KW11. 

005777 @ASR 


TIF CLOCK DOES NOT RETURN 
BUS SSYN'' THEN WE'LL TIME-OUT 


000412 3$ ;THE CLOCK WAS THERE! EXIT SUB-TEST. 


062706 000004 ADD #4 ,SP /ADD #4 TO STACK POINTER. 
013737 001446 MOV ASR ,STMPO :FOR ERROR TYPEOUT. 


ae a te a a a a 
mt) a at os st ss at I SI SS 
we wwe we ewe we wer wr 


js SSSSSSSSSSSSSSSSSSSSSSESS>>> ERROR <<<$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


104012 ERROR 12 sREPORT ERROR=CLOCK CSR FAILED TO RETURN 
;'BUS SSYN'' WHEN ADDRESSED. 

012637 000004 MOV (SP)+,@MERRVEC NOTE: IF PROGRAM HAS INCORRECT 

000137 014616 JMP SEOP ZADDRESS THEN WE MIGHT NOT BE 
[TALKING TO THE CLOCK. MAKE SURE 
OF CLOCK ADDRESS. 


(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(2) 


js SSS$S$SSSSSSSSSSSSSSSSSSSE>>> ERROR <<<S$SS$SSSSSSSSSSSSSSSSSSSSSSSSSSS 
012637 3$: MOV (SP) +, @#ERRVEC 





CVMNC-8 MANCKW 
CVMNCB.P11 


5951 


Cet ee a hl ee et ee, et ee ee, a 
RO ef ss SS 
de de i de a a 


BBL LLL 
NM ow Se 
ee Ne Nee ee ae ee 


003320 


DIAGNOSTIC 
18-SEP-78 18:03 


000004 
013746 
012737 
005777 
000412 
062706 
013737 
104012 
012637 
000137 


012637 


000004 
003274 
176130 


000004 
001422 


000004 
014616 


MACY11  . ptaraeae 23-OCT-78 11: 08 P 


001446 


PAGE 65 
*TEST THE ADDRESSABILITY OF CLOCK CSR 


LRARARARARERERARAERRRRER RERAAARERAEAAERRARRERARREAERRRRARREREKEERRKEKE 


{RTEST 3 *TEST THE ADDRESSABILITY OF CLOCK BUFFER REG. 
OTT TTTTI TI TIT Titi tit ttt iti titi i titi iti itit tiie titi tii 
i813: SCOPE 
1$: MOV @#ERRVEC,-(SP) ;SAVE CONTENTS OF ADDRS 6. 
MOV #2$ ,AAERRVEC [SET TIME-OUT TRAP VECTOR 79 HANDLER IN CASE. 


[WE TIME-OUT WHEN ADDRESSING THE KW11. 
TST @ABR SADDRESS THE CLOCK! 

s]F CLOCK DOES NOT RETURN 

7'BUS SSYN'' THEN WE*LL TIME-OUT 


= BR 3$ :THE CLOCK WAS THERE! EXIT SUB-TEST. 
j ADD #4,SP -/ADD #4 TO STACK POINTER. 
MOV ABR, $TMPO :FOR ERROR TYPEOUT. 


j  SSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<S$S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 12 ;REPORT ERROR=CLOCK BUFFER REG. FAILED TO RETURN 
;'BUS SSYN'’ WHEN ADDRESSED. 

MOV (SP)+,@MERRVEC NOTE: IF PROGRAM HAS INCORRECT 

JMP SEOP ADDRESS THEN WE MIGHT NOT BE 
; TALKING TO THE CLOCK. MAKE SURE 
SOF CLOCK ADDRESS. 


7 SSSSSSSSSSSSSSSSSSSSSSESS>>> ERROR <<<SS$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
3$: MOV (SP) +, @#ERRVEC 


SEQ 0028 


Dd 3 
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Ittiiitii titi titi ie RERERERAAEKKREKEEAEEKEERAEREKREREREEREKEEREEERHE 


: TEST 4 *TEST THAT CLOCK A STATUS REGISTER BIT 14 CAN BE SET AND CLEARED 


 *CLOCK STATUS REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
3*F/FS OR GATES 


:* 

LRA RR RARER RRR REE RARER REE EERE ERE 
000004 TST4: 
012737 #100, STIMES 33D0 100 ITERATIONS 


@ASR 3/CLEAR THE STATUS REGISTER. 
#B1T14,@ASR 3/SET BIT 14. 

#B1T14, ot :/SET FOR ERROR TYPEOUT S/B. 
@ASR, SBDDAT ;/READ THE STATUS REGISTER. 
SGDDAT,$SBDDAT :/DID BIT 14 AND ONLY BIT 14 SET? 
1$ :/1F SO-LETS TRY CLEARING IT. 


js SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 2 37ERROR CLOCK AS STATUS ee 
;/BIT 14 FAILED TO BIT SET 


js SSS$SSSSSSSSSSSSSSSSSSSES>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
2s ;/BR TO END SUBTEST. 
176014 1$: #B81T14,@ASR 3/TRY CLEARING BIT 14. 
SGDDAT :;/CLEAR S/B FOR TYPEOUT IF ANY. 


GDD 
001126 @ASR , SBDDAT 3;/NOW READ IT BACK. 
2s 3/1F ZERO = NO ERROR! 


( 
( 
( 
( 
( 
( 
( 
< 


1) 
1) 
1) 
1) 
1) 
1) 
1) 
2) 


: SSSSSSSSSSSSSSSSSSSSSESS>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 2 ;/7ERROR - CLOCK A STATUS REGISTER. 
;/BIT 14 FAILED TO CLEAR. 
7 SSSSSSSSSSSSSSSSSSSSSEES>>> ERROR <<<SS$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
23: 





E 
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° 
SERRA RRARREREREREH REEKRERAERRREERREREREREREREERREERERERRRERERE 


*TEST 5 *TEST THAT CLOCK A STATUS REGISTER BIT 13 CAN BE SET AND CLEARED 


*% 
:*CLOCK STATUS REGISTER BIT EXERCISE. ON FAILURE=SUSPECT INDIVIDUAL 
3;*F/FS OR GATES 
g2 
SARA RRR RR ER ERE ERE REE REREEERERERERERERERAR ERE EE 
000004 TSTS: 
012737 000100 MO #100, S$TIMES 32D0 100 ITERATIONS 


175762 @ASR 3/CLEAR THE_STATUS REGISTER. 
0000 #B1T13,@ASR 3/SET BIT 1 
roe hy F — :/SET FOR ERROR TYPEOUT S/B. 
3;/READ THE STATUS REGISTER. 
SGDDAT. SBDDAT ;/DID BIT 13 AND ONLY BIT 13 SET? 
1$ 3/IF SO-LETS TRY CLEARING IT. 


| s SSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 2 ;7ERROR_CLOCK AS STATUS REGISTER 
;/BIT 13 FAILED TO BIT SET. 


js SSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
2s ;/BR TO END SUBTEST. 
175716 18: #81T13,@ASR Aly CLEARING BIT 13. 
DAT ;/CLEAR S/B FOR TYPEOUT IF ANY. 


$GD 
001126 @ASR , SBDDAT ;/NOW READ IT BACK. 
2s IVI ZERO - NO ERROR! 


(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(2) 


s SSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<SS$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 2 77ERROR - CLOCK A STATUS REGISTER. 
;/BIT 13 FAILED TO CLEAR. 
s SSSSSSSSSSSSSSSSSSSSSESS>>> ERROR <<<SS$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
2s: 





F 
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C PAGE 65-3 
CVMNCB.P11 18-SEP-78 18: 03 T5 *TEST THAT CLOCK A STATUS REGISTER BIT 13 CAN BE SET AND CLEARED SEQ 0031 
) ; 
ae FF RARER AAAARAAAARARRE PERE AAAARERARAREREERAEREERERRREREEEEREEKE 
3} :*TEST o *TEST THAT CLOCK A STATUS REGISTER BIT 11 CAN BE SET AND CLEARED 
-* 
(5) z*CLOCK STATUS REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
(5) :*F/FS OR GATES 
3 : 
(4) FL RRA AAAARARAAEAAARERARERERERARERREAREERERERRRRRRERERERRRERE RENE 
(3) 003520 000004 TST6: SCOPE 
e 003522 012737 000100 001160 MOV #100, STIMES ::D0 100 ITERATIONS 
(1) 003530 005077 175664 CLR @ASR 3/CLEAR THE STATUS REGISTER. 
(1) 003534 052777 004000 175656 BIS #81T11,@ASR 3/SET BIT 11. 
(1) 003542 012737 004000 001124 MOV #B1T11, a :/SET FOR ERROR TYPEOUT S/B. 
(1) 003550 017737 175644 001126 MOV @ASR, SBDDA ;/READ THE STATUS REGISTER. 
(1) 003556 023737 001124 001126 CMP S$GDDAT, SBDDAT 3/DID BIT 11 AND ONLY BIT 11 SET? 
ih 003564 001402 BEQ 1$ 3/1F SO-LETS TRY CLEARING IT. 
js SSS$SSSSSSSSSSSSSSSSSSSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 003566 104002 ERROR 2 ;/ERROR CLOCK AS STATUS REGISTER 
$t ;/BIT 11 FAILED TO BIT SET. 
j  SSSSSSSSSSSSSSSSSSSSSSESS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
He 003570 000412 BR 2s ;/BR TO END SUBTEST. 
(1) 003572 042777 004000 175620 1$: BIC +b @ASR :/TRY CLEARING BIT 11 
(1) 003600 005037 001124 CLR SGDDAT :/CLEAR $/B FOR TYPEOUT IF ANY. 
(1) 003604 017737 175610 001126 MOV @ASR , SBDDAT iT as READ IT BACK. 
He 003612 001401 BEQ 2s /IF ZERO = NO ERROR! 
(2) 
;  SSSSS$SSSSSSSSSSSSSSSESS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 003614 104002 ERROR 2 :7ERROR = CLOCK A ered REGISTER. 
$4 ;/BIT 11 FAILED TO CLEAR 
(2) 
js SSSS$SSSSSSSSSSSSSSSSESS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 003616 2s: 
(1) 
6001 


3 
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3/" 
ett et tite ti iii iii iii 


: TEST 7 *TEST THAT CLOCK A STATUS REGISTER BIT 6 CAN BE SET AND CLEARED 


? SCLOCK STATUS REGISTER BIT EXERCISE. ON FAILURE=SUSPECT INDIVIDUAL 
fF /FS OR GATES 
te 
SERRA EREARERRERERR ERE RERAERERRERRERERREERRRERERERRRERRRERRRERRERH 
000004 TST?: 
012737 001160 #100, STIMES 3zD0 100 ITERATIONS 


3/CLEAR THE STATUS REGISTER. 
175560 :/SET BIT 6. 
3:/SET FOR ERROR TYPEOUT S/B. 
@ASR , $BDD. 3/READ THE STATUS REGISTER. 
S$GDDAT, SBDDAT 2/010 B17 © AND ONLY BIT 6 SET? 
1$ ;/1F SO-LETS TRY CLEARING IT. 


js SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 2 37ERROR CLOCK AS STATUS REGISTER 
;/BIT 6 FAILED TO BIT SET. 


js SSS$SSSSSSSSSSSSSSSSSSESS>>> ERROR <<<S$$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
2s ;/BR TO END SUBTEST. 
175522 18: #B1T6,@ASR 3/TRY CLEARING BIT 6. 
:/CLEAR S/B FOR TYPEOUT IF ANY. 


001126 ;/NOW READ IT BACK. 
2s :71F ZERO - NO ERROR! 


(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(2) 


: SSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 2 ;/ERROR - CLOCK A STATUS REGISTER. 
;/BIT 6 FAILED TO CLEAR. 
7 SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<S$SS$SSSSSSSSSSSSSSSSSSSSSSSSSSSS 
2$: 
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[RARRRRARERARREE ERE RERERER RRR EER ERE EERE RRR 


:#TEST 10 *TEST THAT CLOCK A STATUS REGISTER BIT 5 CAN BE SET AND CLEARED 


 *CLOCK STATUS REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
3*F/FS OR GATES 


ot 


5 LA RRRRARARRRERERRERREERERREERREE RE EREREREREKREREERERARRRERERRREE RH 


000004 TST10: 
012737 000100 001160 #100, $TIMES ::D0 100 ITERATIONS 


175470 @ASR :/CLEAR THE STATUS REGISTER. 
000040 175462 #81T5,@ASR ;/SET BIT 
000040 #B1T5 ,SGDDAT :/SET FOR ERROR TYPEOUT Any 
175450 @ASR ,$BDDAT 
001124 SGDDAT , SBDDAT I 

1$ 3:71F SO-LETS TRY CLEARING IT. 
5: SSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 2 37ERROR CLOCK AS STATUS REGISTER 
;/BIT 5 FAILED TO BIT SET. 


3s SSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<S$S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
2s ;/BR TO END SUBTEST. 
000040 175424 18: #B1TS,@ASR e/TRY CLEARING BIT 5. 
001124 /CLEAR S/B FOR TYPEOUT IF ANY. 


175414 001126 7/NOW READ IT BACK. 
2s :/1F ZERO - NO ERROR! 


Fe ae te te ee i 
ewe eee ee ae 


(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(2) 


: SSSSSSSSSSSSSSSSSSSESSSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 2 :/ERROR - CLOCK A STATUS REGISTER. 
;/BIT 5 FAILED TO CLEAR. 
: SSSSSSSSSSSSSSSSSSSSSESS>>> ERROR <<<S$$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
2s: 
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3/f 
RRA REKKEKERERKEKEEERREKEEREEERERRREREREEREERERRREKE 


:STEST 11 *TEST THAT CLOCK A STATUS REGISTER BIT 4 CAN BE SET AND CLEARED 


‘ *CLOCK STATUS REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
;*F/FS OR GATES 


ot 


SLR ARR EREREREERERERREERE EERE EERE ERRAEEEREERERERRERRRRRERRE 


000004 TST11: 
012737 000100 MOV #100. $TIMES 32D0 100 ITERATIONS 


175372 @ASR :/CLEAR a | STATUS REGISTER. 
0000 #B1T4,@ASR :/SET BIT 
#B1T4,$GDDAT 3/SET FOR ERROR TYPEOUT S/B. 
@ASR, SBDDAT ;/READ THE STATUS REGISTER. 
SGDDAT, $BDDAT :/DID BIT 4 AND ONLY BIT 4 SET? 
1$ 3/1F SO-LETS TRY CLEARING IT. 


3s SSSSSESSSSSSSSSSSSSSSSSSS>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 2 ;7ERROR CLOCK AS STATUS REGISTER 
:/BIT 4 FAILED TO BIT SET. 


js SSS$SSSSSSSSSSSSSSSSSSES>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
2s ;/BR TO END SUBTEST. 
000020 175326 1$: MBITS, "oa 2/TRY CLEARING BIT 4. 
001124 S$GDDAT /CLEAR S/B og Fes IF ANY. 


175316 001126 @ASR , $BDDAT :7NOM READ IT 
2s /IF ZERO - NO ERROR! 


(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(2) 


2  SSSSSSSSSSSSSSSSSSSESSSSS>>> ERROR <<<S$S$SS$SSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 2 ware - CLOCK A STATUS REGISTER. 
:/BIT 4 FAILED TO CLEAR. 
2 SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<S$S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
2s: 
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;/# 
. 
LT RAAARARAREEREAREREHEE RERAAAAEKRKRAARRAAARRAEERAERARARREAERERERRREKEH 


gStest 12 *TEST THAT CLOCK A STATUS REGISTER BIT 3 CAN BE SET AND CLEARED 


‘ *CLOCK STATUS REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
;*F/FS OR GATES 
-* 


FLARE RARARREARARRARRREEERARRERARERRRAERREERAERRRRERERRERRRREEEEE 


000004 TST12: 
012737 000100 MO #100, STIMES 32D0 100 ITERATIONS 


175274 @ASR ;/CLEAR THE STATUS REGISTER. 

000010 #81T3.@ASR 3/SET BIT 3. 

000010 #8173, oe ;/SET FOR ERROR TYPEOUT S/B. 

175254 @ASR, SBDDAT [/READ THE STATUS REGISTER. 

001124 SGDDAT,$BDDAT :/DID BIT 3 AND ONLY BIT 3 SET? 
1$ 3/1F SO-LETS TRY CLEARING IT. 


| SSS$SSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 2 37ERROR CLOCK AS STATUS REGISTER 
;/BIT 3 FAILED TO BIT SET. 


js SSSSSSSSSSSSSSSSSSSSSSSEE>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
2s ;/BR TO END SUBTEST. 
000010 175230 1$: #8113, @ASR 3/TRY CLEARING BIT 3. 
001124 SGDNAT :/CLEAR S$/B FOR TYPEOUT IF ANY. 


175220 001126 @ASK , SBDDAT s READ IT BACK. 
2s /IF ZERO - NO ERROR! 


(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(2) 


js SSS$SSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 2 77ERROR - CLOCK A STATUS REGISTER. 
;/BIT 3 FAILED TO CLEAR. 


St ee et 


Naa ad 
~~ we we we 


: [SSSSSSSSESSSSSSSSSSSSSSES>>> ERROR <<<SS$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
2s: 
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e 
SARA RARER RAEER: REREREREARERERRREREEEERERRERAEREERRRRREEERRE 


SeTEST 13 *TEST THAT CLOCK A STATUS REGISTER BIT 2 CAN BE SET AND CLEARED 


° 

:*CLOCK STATUS REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
3*F/FS OR GATES 

: 


5 RRA RRRARAEERERRRERAERREERERERAERERERREREREREERERREREERRHRRERERRRRRR EE 


000004 1S113: 
012737 001160 MOV #100, $TIMES ::D0 100 ITERATIONS 


@ASR 3;/CLEAR THE STATUS REGISTER. 
175170 #81T2,@ASR /SET BIT 2. 
#81T2,$GDDAT 3;/SET FOR ERROR TYPEOUT S/B. 
@ASR , SBDDAT ;/READ THE STATUS REGISTER. 
SGDDAT,$BDDAT ;:/DID BIT 2 AND ONLY BIT 2 SET? 
1$ :/1F SO-LETS TRY CLEARING IT. 


3  SSSSSSSSSESSSSSSSSSSSSSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 2 ;/ERROR CLOCK AS STATUS REGISTER 
;/BIT 2 FAILED TO BIT SET. 


3s SSSSSSSSSSSSSSSSSSSSSSSE>>> ERROR <<<$S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
2s ;/BR TO END SUBTEST. 
175132 18: #B1T2,a@ASR z/TRY CLEARING BIT 2. 
7/CLEAR S$/B FOR TYPEOUT IF ANY. 
READ IT BACK. 


001126 ira 
2s /IF ZERO = NO ERROR! 


( 
( 
( 
( 
( 
( 
( 
( 


1) 
1) 
1) 
1) 
1) 
1) 
1) 
2) 


5 SSSSSSSSSSSSSSSSSSSSSSSS$>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 2 ;/ERROR - CLOCK A STATUS REGISTER. 
:/BIT 2 FAILED TO CLEAR. 
2 SSSSSSSSSSSSSSSSSSSSSEESS>>> ERROR <<<S$S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
2s: 
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3/4 
FARRAR RERARREERRREE. RERARAAAEREREERAAEREARERARRREEERREREREREREKEE 


;#TEST 14 *TEST THAT CLOCK A STATUS REGISTER BIT 1 CAN BE SET AND CLEARED 


 *CLOCK STATUS REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
3*F/FS OR GATES 


<i 


J LEAR RARER ERR RARER REE EEREE REA RERRREEERARRERERERERRRERERRRERERE 


000004 TST14: 
012737 001160 #100, STIMES D0 100 ITERATIONS 


@ASR 3;/CLEAR THE STATUS REGISTER. 
175072 #B1T1,@ASR 3/SET BIT 1. 
001124 #BI1T1, eee [/SET FOR ERROR TYPEOUT S/B. 
@ASR , $BDDAT ;/READ THE STATUS REGISTER. 
SGDDAT,S$BDDAT ;/DID BIT 1 AND ONLY BIT 1 SET? 
1$ 3:/71F SO-LETS TRY CLEARING IT. 


3  S$SSSSSSSSSSSSSSSSSSSSSESS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 2 37ERROR CLOCK AS STATUS REGISTER 
;/BIT 1 FAILED TO BIT SET. 


3s SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
2s ;/BR TO END SUBTEST. 
1$: #BI1T1,@ASR e/TRY CLEARING BIT 1. 
T /CLEAR $/B FOR TYPEOUT IF ANY. 


001124 $GDDA 
175024 @ASR , $BDDAT NOW READ IT BACK. 
2s :/1F ZERO - NO ERROR! 


(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(2) 


1 SSSS$SSSSSSSSSSSSSSSSESEES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS | 
ERROR 2 a - CLOCK A STATUS REGISTER. 
:/BIT 1 FAILED TO CLEAR. 
2 SSSSSSSSSSSSSSSSSSSSSESS>>> ERROR <<<S$S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
2s: 
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e 
SARA RARRRARERERE: REREEEREREREREERERRRRERREREREREERRERERERERE 


goteer 15 *TEST THAT CLOCK A STATUS REGISTER BIT 0 CAN BE SET AND CLEARED 


:+CLOCK STATUS REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
3*F/FS OR GATES 
ot 


J LARA RARER ERA RR ARERR ERE ERERERERAERERRAERRRERKERRERERRRRRERE 


000004 TST15: 
012737 001160 #100, STIMES 32D0 100 ITERATIONS 


@ASR ;/CLEAR THE STATUS REGISTER. 
174774 #B1T0,@ASR 3/SET BIT 0. 
1124 #81T0,$GDDAT 3/SET FOR ERROR TYPEOUT S/B. 
@ASR, $BDDAT ;/READ THE STATUS REGISTER. 
SGDDAT,$BDDAT :/DID BIT 0 AND ONLY BIT O SET? 
1$ :71F SO-LETS TRY CLEARING IT. 


3  SSSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 2 37ERROR CLOCK AS STATUS REGISTER 
;/BIT 0 FAILED TO BIT SET. 


3s SSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
2s ;/BR TO END SUBTEST. 
000001 174736 1$: #81T0,@ASR s/TRY CLEARING BIT 0. 
001124 SGDDAT ;/CLEAR S/B a Fase IF ANY. 


174726 001126 @ASR , SBDDAT ;/NOW READ IT 
2s I/F ZERO - NO ERROR! 


(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(2) 


7 :SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 2 ;7ERROR - CLOCK A STATUS REGISTER. 
:/B1 T 0 FAILED TO CLEAR. 
5 SSSSSSSSSSSSSSSSSESSSSES>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
2$: 
RADIX 8 
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LL RRRA ARR AEA ARERR AERA AERA RERAARERARERARRRAR RARER AARNE 
s*TEST 16 *TEST THAT PATERN 125252 WILL SET AND CLEAR IN BUFFER REG. 
SERRA RARER AREER AREA EREERARRAARERARRERRREAARERARRRRA ARERR EE 


TST16: 


174714 @ABR /CLEAR THE BUFFER REG. 
#125252 ,$GDDAT 7 RECORD PATTERN: 125252 . 
SGDDAT , @ABR :/SET PATTERN IN BUFFER REG. 
017737 174674 @ABR , SBDDAT ;/READ THE BUFFER REG. 


023737 001124 SGDDAT,SB8DDAT ;/DID THE PATTERN SET OK? 
001402 1$ 37YES-TRY CLEARING IT. 


Cpe an hai a ae ee 
wwe we wwe ee ee 


5 SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 3 37ERROR PATTERN 125252 FAILED TO 
;/SET PROPERLY IN BUFFER REG. 


;  SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
2s :/GOTO SCOPE LOOP. 
125252 174650 1$: #125252, @ABR s/TRY CLEARING PATTERN. 
S$GDDAT ;/EXPECT ZERO BACK 


001126 @ABR , SBDDAT [/READ BUFFER REG. “WAS IT ZERO? 
2s :/YES-NEXT TEST. 


Net ee ot ot os es 
ee Ne wee ee ee 


( 
( 
( 
( 
( 
( 
( 
( 


|: SSSSSSSSSSSSSSSSSSSSSSESS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 3 ; /BUFFER ~ Nay COULD NOT BE LOADED 
:/TO A ZERO 


1 SSSSSSSSSSSSSSSSSSSSSEES>>> ERROR <<<S$$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
2$: 
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(5) DDE EEE EEE TSI IOI III IOI IIR 
(4) T*TEST 17 *TEST THAT PATERN 052525 WILL SET AND CLEAR IN BUFFER REG. 
(4) eet ITT ti titi iit i tii titi iiititititiiiitii iii irr re 
fe 004570 000004 i$117: SCOPE 
(1) 004572 005077 174624 CLR @ABR ;/CLEAR THE BUFFER REG 
(1) 004576 012737 052525 001124 MOV #052525 , SGDDAT ; RECORD PATTERN: 059835 . 
(1) 004606 013777 001124 174610 MOV S$GDDAT , @ABR /SET PATTERN IN BUFFER REG. 
3S 004612 017737 174604 001126 MOV @ABR , SBDDAT :/READ THE BUFFER REG. 
(1) 004620 023737 1124 001126 CMP SGDDAT,$BDDAT ;/DID THE PATTERN SET OK? 
Hi 004626 001402 BEQ 1$ 37YES=TRY CLEARING IT. 
(2) 


js SSSSSSSSSSSSSSSSSSESSSES$S>>> ERROR <<<S$$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


(1) 004630 104003 ERROR 3 77ERROR PATTERN 052525 FAILED TO 
3} ;/SET PROPERLY IN BUFFER REG. 
js S$SSSSSSSSSSSSSESSSSSSSSSE$S>>> ERROR <<<S$$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
4 4 004632 000412 BR 2$ :/GOTO SCOPE LOOP. 
(1) 004634 042777 052525 174560 1$: BIC #052525 ,@ABR 3/7TRY CLEARING PATTERN. 
(1) 004642 005037 001124 CLR SGDDAT :/EXPECT ZERO BACK. 
(1) (04646 017737 174550 001126 MOV @ABR , SBDDAT /READ BUFFER REG. ,WAS IT ZERO? 
a 004654 001401 BEQ 2s :/YES-NEXT TEST. 
(2) 
js S$SSSSESSSSSSSSSSSSSSSSES$S>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 004656 104003 ERROR 3 OAT REG. COULD NOT BE LOADED 
a : /TO A ZERO. 


js SSSSSSSSSSSSSSSSSSSSSSESS>>> ERROR <<<S$$S$SSSSSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 004660 2$: 
(1) 


CVMNC-8 MNCKW 
CVMNCB.P11 


004660 
004662 
004670 
004674 


004702 


004710 
004716 


004722 
004726 


004730 


004732 


DIAGNOSTIC 
18-SEP-78 18:03 


000004 
012737 


005077 
112777 


017777 


013737 
105037 


105737 
001401 


104001 


000050 


174524 
127677 


174512 


001126 
001125 


001127 


MACY11 


001160 


174516 


174216 
001124 


30A(1052) 23-OCT-78 
® 


-SBTTL 
-SBTTL 
TTL 


C 4 
11:08 PAGE 68 


* 
* PHASE 2 ADVANCED BASIC LOGIC TESTS 
® 


RRA EERE 


*TEST THE LOW BYTE OPERATION OF CLOCKS STATUS REGISTER 


T*TEST 20 


S AWE CAN SUCCESSFULLY WRITE EVERY BIT IN STATUS REG A 
7*NOW LETS CHECK THE BYTE OPERATION OF THIS REGISTER. 


-* 


SRA ER RREERRERRERER ER EEE REE REE EEREERREREEREEREREERERRER ERK 


TST20: SCOPE 
MOV 


CLR 
MOVB 


MOV 


MOV 
CLRB 


TSTB 
BEQ 


#50, $TIMES 


@ASR 
#127677 ,@ASR 


@ASR, a$BDDAT 
sey foo 
SBDDAT +1 

1$ 


33;D0 50 ITERATIONS 


MAKE SURE THE STATUS REGISTER IS CLEAR. 
TRY WRITING ALL BITS IN THE 

SSTATUS REGISTER. LOGIC SHOULD PREVENT IT 
[FROM BEING WRITTEN INTO BECAUSE 

WE ARE USING A DATOB INSTRUCTION. 


NOW EXAMINE THE 
Fin $e REGISTER. 
A. X $GDDAT FOR ERROR TYPEOUT IF 


Y RROR HAS OCCURRED, UPPER BYTE CLEARED. 


;ARE ANY BITS IN THE UPPER BYTE 
;OF THE STATUS REGISTER SET? 
[BRANCH NEXT TEST IF UPPER BYTE=0. 


js SSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 


1 


3: S$$SSSSSSSSSSSSSSSSSSSSS>>> 


1$: 


ERROR - WROTE INTO UPPER BYTE OF 
;CLOCK'S STATUS WHEN 
[DOING A DATOB TO THE LOW BYTE. 


ERROR <<<$$S$S$SSSSSSSSSSSSSSSSSSSSSSSSSSS 


SEQ 0041 


CVMNC-8 MNCKW 
CVMNCB.P11 


DIAGNOSTI 
18-SEP-78 


000004 
012737 
005077 
005237 


112777 


005337 
017737 


18: 03 


000050 
174452 
001420 


177213 


001420 
174430 
001126 


D 
MACY11 > Stemee” 23-OCT-78 11:08 


PAGE 69 
*TEST THE HIGH BYTE OPERATION OF A'S STATUS REGISTER 


FERRARA RRR RERERR RR RRRRERERRE REE RRR RERRREREREREREREER 


s*TEST 21 *TEST *HE HIGH BYTE OPERATION OF A'S STATUS REGISTER 


‘AWE CAN SUCCESSFULLY WRITE EVERY BIT IN STATUS REG A 
3*NOW LETS CHECK THE BYTE OPERATION OF THIS REGISTER. 


te 


© RRR AREER RERERERERREEEREKEAREKEEEEEKEKEEEREREEERREEREK 


TST21: SCOPE 
001160 MOV #50,$TIMES 


CLR @ASR 
INC ASR 


174440 MOVB #177213,@ASR 


ASR 


@ASR , SBDDAT 
SBDDAT , SGDDAT 
SGDDAT 

$BDDAT 

1$ 


33D0 50 ITERATIONS 
CLEAR THE STATUS REGISTER. 


= #1 TO THE STATUS REGISTER'S ADDRESS 
O THAT WE WILL BE WRITING INTO 
;THE HIGH BYTE. 


TRY WRITING ALL BITS IN THE STATUS 
REGISTER. LOGIC SHOUL 


7A DATOB INSTRUCTION WITH AOO SET. 
3FIX ADDRESS OF THE STATUS REGISTER ADDR. 
SO WE CAN LOOK AT THE WHOLE 


L WORD. 
[READ BACK WHAT THE STATUS REG. CONTAINS 
3F1IX SGDDAT FOR ERROR TYPEOUT IF AN ERROR 
SOCCURRED, LOWER BYTE CLEARED. 
:1S LOWER BYTE CLEAR? 
7BR IF YES TO NEXT SUBTEST. 


3s SSSSSSSSSSSSSSSSSSSSSESE>>> ERROR <<<$S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 1 


ERROR - WROTE INTO LOWER BYTE 
OF CLOCKS STATUS REGISTER WHEN 


;DOING A DATOB TO THE HIGH BYTE. 


js S$S$SSSSSSSSSSSSSSSSSSESS>>> ERROR <<<S$SS$$SSSSSSSSSSSSSSSSSSSSSSSSSSS 


1$: 
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LRA RRR AREER RARER RRR RARER EERE RRR ARERR ER 
s*TEST 22 *TEST CLOCK'S COUNT REGISTER WITH 125252 PATTERN 
+ RRRRRRRRRRRRRRR ARERR REAR A RARER RR ARRE ERE RR AAA EER 

000004 TST22: SCOPE 

012737 000040 001160 MOV #40, STIMES 3:D0 40 ITERATIONS 


005077 174370 CLR @ASR SELECT MODE 0. 
012777 125252 174364 MOV #125252, @ABR ;LOAD THE BUFFER rar te WITH 
SPATTERN 125252. IT WILL BE 
; TRANSFERRED TO THE COUNT REGISTER 
SSINCE THIS IS MODE 0. 
052777 000001 174354 #B1T0,@ASR 7SET GO BIT(ALLOWS BUFFER-COUNT REG XFER). 


012737 125252 001124 #125252,$GDDAT ;SET EXPECTED TO PATTERN IN CASE OF 
ZNEED OF ERROR TYPEOUT. 

017746 @ASR = (SP) 3/SAVE CSR 

052777 174334 #4007, @ASR 3/SET MODE 3,DIS INTR OSC NO RATE 
:/THIS MUST BE DONE IN 
;/ORDER TO XFERR COUNTER 
:/TO BUFFER ON ST2. 

052777 174326 #BIT9,@ASR :/GENERATE ON ST2 PULSE 

47454 ;/NOW GENERATE 


3;/EIGHT ST1 PULSES 

005726 )+ ahd STACK 

017737 001126 /READ THE PRESET BUFFER, 
:/PREVIOUS COUNTER 

012677 174274 (SP) +,@ASR ;/CONTENTS ARE IN $8DDAT. 

005737 001126 $BDDAT :/RESTORE CSR 

023737 001124 SGDDAT,SBDDAT ;DID oe BITS AND NO OTHER BITS 


sc 
001401 1$ BR IF YES TO NEXT TEST. 


AXAAOAOO 
anh aa cad cad ca aod 
WOONQUSE 


3 


—a3 a So SS SS YS 
wwe we eee a 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


7 SSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 5 :DATA ERROR CLOCK = PATTERN ‘125252 
SFAILED TO TRANSFER PROPERLY BETWEEN 
‘BUF F ER AND COUNT REGISTERS. 
; SSSSSSSSSSSSSSSSSSESSSES>>> ERROR <<<SS$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
1$: 





mer 





were 
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ETT T ITIL titi Titi t iit iiiiiiiiiiii titi tii tir 
ATEST 23 *TEST CLOCKS COUNTER REGISTER WITH 052525 PATTERN 
PITT IT ITI TITI TIT TTT ttt titi titi ti tai iiit iit itt 

000004 18123: SCOPE 

012737 000040 001160 MOV #40,STIMES 32D0 40 ITERATIONS 


005077 174242 CLR @ASR sSELECT MODE 0. 

012777 052525 174236 MOV #052525 ,@ABR [LOAD THE BUFFER 7 a WITH 
:PATTERN oo ILL BE 
; TRANSFERRED THE COUNT REGISTER 
ZSINCE THIS 15 OMODE 

052777 000001 174226 BIS #B81T0,@ASR SET BO BIT(ALLOWS BUFFER=COUNT REG XFER). 


012737 052525 001124 #052525,$GDDAT ;SET EXPECTED TO PATTERN IN CASE OF 
SNEED OF ERROR TYPEOUT. 


2/-ROCLK: 

017746 174214 @ASR = (SP) SAVE CSR 

052777 004007 174206 #4007, @ASR Teer MODE . DIS INTR OSC NO RATE 
:/THIS MUST BE DONE IN 
; /ORDER TO XFERR COUNTER 

/TO BUFFER ON ST2. 
052777 001000 174200 #BIT9,@ASR :/ GENERATE ON ST2 PULSE 
peed MOV 8 ) ;/NOW GENERATE 


174166 
;/EIGHT ST1 PULSES 
2 (SP) ty STACK 

017737 174156 001126 /READ THE PRESET BUFFER, 
:/PREVIOUS COUNTER 

012677 174146 MO (SP)+,@ASR 3;/CONTENTS ARE IN $8DDAT. 

005737 001126 SBDDAT ;/RESTORE CSR 

023737 001124 SGDDAT,$BDDAT ;DID ~ THE BITS AND NO OTHER BITS 


; COME 
001401 1$ 7BR IF YES TO NEXT TEST. 


ee ee ee ed ed ed 
ee ee ee ee ae le le le 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


: SSSSSSSSSSSSSSSSSSSSSEES>>> ERROR <<<SS$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 5 DATA ERROR CLOCK = PATTERN ‘052525"" 
: FAILED TO TRANSFER PROPERLY BETWEEN 
[BUF F ER AND COUNT REGISTERS. 
; :SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
1$: 
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DIAGNOST 


18-SEP-78 18: 03 


000004 
012737 
005037 
012777 
000005 
052777 
017737 
001402 


000414 


005737 
001411 


100010 
052777 


032777 
001401 


104006 


000005 


001124 
176377 


000100 
174072 


001476 


016002 
000006 


G 4 
MACY11 — 23-OCT-78 11:08 PAGE 72 


174064 
174054 


*TEST THAT INIT CLEARS STATUS REGISTER 


FRERARAARRRARRREREEREREEREERERERRRERRAERRERERRRERERRRERERRERREERERE EE 


:#TEST 24 *TEST THAT INIT CLEARS STATUS REGISTER 


; STESTING OF THE INIT LOGIC AS RECEIVED FROM THE QBUS AND BUFFERED 
sero STATUS REGISTER F/FS. 


 AASUURRURARERRIREORENRERANERRNNEReRANORANREENORNONEanNnateS 
18124: SCOPE 
MOV #5, STIMES 3:D0 5 ITERATIONS 


CLR $GDDAT EXPECTED DATA IS ZERO. 
MOV #176377 ,@ASR :SET ALL BITS IN THE STATUS REG. 


RESET SYSTEM INITIALIZE. 
81S #81T6,a$TKS ENABLE TKB INTR. 


MOV @ASR , SBDDAT ;READ THE STATUS REG., ALL BITS SHOULD 


;HAVE BEEN CLEARED BY INIT. 
BEQ 1$ ;BR IF YES TO NEXT TEST. 


js SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<S$$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 2 ;ERROR - SYSTEM INIT “yo TO CLEAR 
;STATUS REGISTER CLOCK A 
s SSSSSSSSSSSSSSSSSSSESSSES>>> ERROR <<<S$SS$SSSSSSSSSSSSSSSSSSSSSSSSSSSS 
BR TST25 $3 


DWARF TEST DWARF/TESTOR INDICATOR 
TST25 ae 


TST25 
weltt 1917 12:B1T10:6171 @DR2 =; ENABLE ST1,ST2 TO LATCH. 
#6,@DR 1,872, OVERFLOW SET? 

TST25 33 
: : S$$$S$$SSSSSSSSS$SSSSSSESS$S>>> ERROR <<<$S$SSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 6 INIT FAILED TO CLEAR 
:ST1,ST2, AND/OR OVERFLOW 


js SSS$SSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSS$SSSSSSSSSSSSSSSSSSSSSSSSSS 


1$: 
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000004 
012737 
005037 
012777 
000005 
052777 
017737 
001401 


005737 
001404 


100003 
052777 


000005 
001124 
177777 


000100 
173776 


001476 


016000 
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001160 


174012 


173524 
001126 


173770 


*TEST THAT INIT CLEARS BUFFER REGISTER 


RARER AAERAAREAAEARRAERAEARERAARERAARREAREREKRRRERREKREEEE 


:#TEST 25 *TEST THAT INIT CLEARS BUFFER REGISTER 


eTHIS TEST IS DESIGNED TO SEE IF ‘INIT H"’ 
T*CLEARS THE BUFFER REGISTER. WE ALREADY 
5 ee IT CLEARS THE STATUS REG. 


eeeaeneeenecgnnncnnnnereenannanqanaeaannensneasennaeseonsscaces 


TST25: SCOPE 
MOV 


#5, STIMES 3:D0 5 ITERATIONS 


CLR $GDDAT ;CLEAR EXPECTED DATA 
MOV #177777 ,@ABR [SET ALL BITS IN THE BUFFER REGISTER. 


RESET ; ISSUE SYSTEM INITIALIZE. 
BIS #BIT6,a$TKS ENABLE TKB INTR. 


MOV @ABR , SBDDAT ;READ THE BUFFER REGISTER, ALL arts 
;SHOULD HAVE BEEN CLEARED BY INIT 
BEQ 1$ ‘BR IF YES TO NEXT SUBTEST. 
s  SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<S$S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 3 sERROR - SYSTEM INIT FAILED 
;TO CLEAR BUFFER REGISTER A. 
5 [SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSS$SSSSSSSSSSSSSSSSSSSSSSSSSSSS 
1$: 
DWARF sCHECK DWARF/TESTOR INDICATOR 
TST26 77BR IF NO DWARF/TESTER 


TST26 -*BR IF ONLY DWARF 
#B1T11!B1T12!B1T10,aDR2 ;ENABLE THEM 
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SRA ARERR ERE REREREREREREREREERRRRERRRERRERERREEREREE 
TTEST 26 *TEST THE SETTING OF MAINTENANCE ST2 IN CLOCK BIT 15 TO SET 
SEERA RARER EEE ERERERE RRR ERE REE RERERERERERERRRR EERE ARERR EH 
T$T26: SCOPE 
173742 CLR aasR 32 CLEAR THE CSR 
000001 173734 MOV #1, aASR :SE1 THE GO BIT(ENABLES ST2 TO SET FLG). 
052777 001000 173726 BIS #B1T9,aASR TSET MAINTENANCE ST2. 


005777 173722 TST aASR DID BIT15 (ST2 FLAG) SET? 
100402 BMI 1$ 7BR IF YES = NEXT TEST 


7 SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SS$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 1 ;ERROR - MAINTENANCE ST2 (BIT9) 
:DID NOT SET BIT15 (ST2 FLAG). 
7 SSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<S$S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


BR 
1$: ; CHECK DWRAF/TESTOR INDICATOR 
$ F NONE 


IF DWARF 
173714 4 :bID EXTERNAL ST2 GET SET? 


js SSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 6 :ST2 OUT NOT DETECTED 
Y TESTOR 


2 :SSSSSSSSSSSSSSSSSSSESSS$SE>>> ERROR <<<S$S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
BR TST27 32 
173662 2$: BIC #B1T15,@ASR ;NOW TRY CLEARING ST2 FLAG. 
173654 BIT #B1T15,@ASR :DID IT CLEAR?? 
BEQ TST27 re 
7 SSSSSSSSSSSSSSSSSSSSSSSS$>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 1 3ST2 FLAG FAILED TO CLEAR. 


7 SSSSSSSSSSSSSSSSSSESSSSESS>>> ERROR <<<S$$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
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J LER AAA REE EERE ERE RREREE RARER EERREREEEEER EER 


i*TEST 27 *TEST THAT ST1 FLAG SETS ON MAINTENANCE ST1 


J LARA ARARRER EERE REE ERE REE EEERERREREREEERERERRRRERREEE ER 


TST27: SCOPE 
CLR @ASR 32 CLEAR THE CSR 
BIS #8178, @ASR t2 SET MAIN. ST1 
BIT #81710, aASR ‘2 DID ST1 FLAG SET? 
BNE 1$ t2 YES = CONTINUE 


j  SSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 1 32 ST1 FLAG FAILED TO SET 
js SSSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
1$: BIC #81T10,@ASR 32 NOW TRY CLEARING IT. 
BIT #81T10,@ASR 32 DID IT CLEAR? 
BEQ TST30 $3 
5 SSSSSSSSSSSSSSSSSSSSSSEES>>> ERROR <<<S$S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 1 2 ST1 FLAG FAILED TO CLEAR 


3  SSSSSSSSSSSSSSSSSSSSSSESS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


LRA ARR ARRRERRERRERRERRRRARAR EER ARARRERRE RRR ER 
z*TEST 30 *TEST THAT BITOO IN CLOCK STATUS REG. WILL SET WHEN BIT13 AND MAIN. ST2 


RARER EREREEREKRREKRRERAERAERERRERAEEEEKEREEREREEEREEKE 


TST30: SCOPE 


#81T13,@ASR sSET *‘ST2 ENB COUNTER’ IN CLK STATUS REG. 
#B1T9,@ASR NANCE ST2. 
- T00,@ASR 


F YES = NEXT TEST. 
3  SSSSSSSSSSSSSSSSSSSSSSEES>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 1 ;ERROR - BITOO OF CLOCK'S STATUS REGISTER 
zFAILED TO SET WHEN BIT13 WAS SET 
ZAND A MAINTENANCE ST2 GENERATED. 
3s SSSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


173544 18: BIT #81T13,@ASR ;DID BIT 13 CLEAR ITSELF ?? 
BEQ 2s YES GO AHEAD. 


3 SSSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 1 ;BIT 13 FAILED TO CLEAR. 

3  SSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<S$$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

23: CLR @ASR LEAVE SUBTEST WITH CLOCK CLEAR. 
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-SBTTL * 
-SBTTL *PHASE 3 COUNT TESTS 
° TTL * 
SERA RREERREEREERERARRERREEEREREREREKEREERERRERKERRRRERERE 
s*TEST 31 *TEST TO SEE IF THE COUNTER WILL INCREMENT 
J LARA RRARA EERE REE ER EERE EERE REE RREEEREREREEEERERRRE EE 
000004 TST31: 
012737 000010 MO #10, STIMES 3:D0 10 ITERATIONS 


173520 @ASR 2 CLEAR THE ot 


173516 @ABR CLEAR THE BUFFER 
000061 #B1TS!B1T4!BI1T0, aASR zSET RATE:ST1, GO. 
052777 #B81T8,@ASR ;GENERATE A MAINTENANCE ST1. 
:DID THE CLOCK COUNT? 
3/-RDCLK~ 
017746 @ASR ,~ (SP) :/SAV VE CSR 
052777 00400 #4007, aASR s/SET MODE os DIS _INTR OSC NO RATE 
HIS MUST BE DONE IN 


3 R ON ST 
052777 #B1T9,@ASR :/GENERATE ON ST2 PULSE 
0127 #8. .-(SP) ;/NOW GENERATE 
#B1T8,aASR 
(SP) 3/EIGHT ST1 PULSES 


64$ 
(SP) + 3/RESET STACK 
017737 @ABR , SBDDAT ;/READ THE PRESET BUFFER, 
:/PREVIOUS COUNTER 
012677 (SP)+,@ASR S/CONTENTS ARE IN S$8DDAT. 
005737 SBDDAT ;/RESTORE CSR 
001001 1$ YES, NEXT TEST. 


5s SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<S$S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
104006 ERROR 6 CLOCK FAILED TO INCREMENT. 


ee ee ee ee ed ed ed eed ed ed 


( 
( 
¢ 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


ed 


: 


o 
aoe 
= ad 
-oO 


7 SSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<SS$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
1$: 
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000004 
012737 


012737 
012777 
052777 


000450 


017746 


173316 
000005 
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PAGE 77 
*SEE IF CLOCK WILL COUNT UP FROM A ZERO BASE, RATE:ST1 


SARA A RARER ERE RARER ARERREERREEREEREERERERERRRERARRERERER EH 


s*TEST 32 
-* 
NOTE: 


t 


132: SCOPE 
001160 MOV #10, STIMES 
@ASR 


@ABR 
001124 #0, SGDDAT 
001110 #2$,SLPERR 


173354 


173346 #B1T8,@ASR 


*SEE IF CLOCK WILL COUNT UP FROM A ZERO BASE, RATE:ST1 
* IN THIS TEST, LOOP ON ERROR WILL CAUSE A LOOP 

;® ON THE FAILING COUNT PATTERN; 

; WHILE LOOP ON TEST WILL START THE TEST 

;* AND THE CLOCK FROM ZERO TO THE FAILING COUNT. 
** 

§ 


SRERRAEAERAEAEEREREREREEEEREREREEKREREREEEEREREEREEREREEREREERKEEKREEKEEK 


;;D0 10 ITERATIONS 


;CLEAR THE CSR. 
:CLEAR THE BUFFER REG 
CLEAR EXPECTED. 


MBITS!BIT4!BITO,@ASR ;START CLOCK, RATE:ST1. 


GENERATE A MAINTENANCE ST1 
CLOCK SHOULD COUNT ONCE. 
oR THE DWARF/TESTER INDICATOR 


IF DWARF 
VES - DID ST1 GET SET? 


js SSSS$S$E$SSSSSSSSSSSSSSSSESES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 6 


7ST1 OUT NOT DETECTED 
7BY TESTOR 


js SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


BR TST33 
10$: 


@ASR ,~ (SP) 


#5, 
#81T15,@ASR 
#B1T9,@ASR 
@ABR , SBDDAT 
(SP)+,@ASR 
SBDDAT 


173310 


SGDDAT 
SGDDAT , STMPO 
a - SBDDAT 


3/-RDCLK1- 

:/SAVE CSR CONTENTS. 
3/SET TO MODE 2,G0 
:/CLR_ST FLAG. 


;/GENERATE ST2 PULSE. 
T REG. 


$ TORE CSR. 
;/PREVIOUS CONTENTS OF COUNT REG 
:7IN SBDDAT. 


page be en COUNT+1 

FOR ERROR TYPEOUT. 

> COUNT READ=COUNT EXP*ED? 
TYES = SEE IF WE'RE THROUGH. 


js SSS$SSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
CLOCK FAILED TO COUNT UP PROPERLY. 
3 SSSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 11 


SEQ 0050 
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052777 
012700 


005077 
012777 


052777 
052777 


105777 
100402 
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173224 
001202 


001124 
001124 


001476 


020002 
000010 


173152 
177777 


000061 
000400 
173124 
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T32 E IF CLOCK WILL COUNT UP FROM A ZERO BASE, RATE:ST1 


GOTO SCOPE LOOP. 


TEST IF FIRST PASS 
7;BR IF FIRST 


zALL_ DONE? 
3 NO DO NEXT INCREMENT. 


LRARRARAEARARRERERERE ERE EREEREREREREREREREEREERRERARRRERRERK EERE 


T*TEST 33 *TEST THAT OVERFLOW (CSR BITO7) WILL SET ON OVERFLOW 


RRA 


18133: 


173212 


DWARF : TEST DWARF/TESTER INDICATOR 
2s IF NONE 
TST34 BR IF DWARF 


173202 #81T13!B1T1,aDR2 
#8. RO :SET TIME OUT NUMBER. 


@ASR ;CLEAR THE CSR 
173146 #-1,@ABR ;SET PRESET BUFFER TO ALL ONES. 


173136 WBITS!BIT4!BITO,@ASR ;START CLOCK, RATE ST1. 
173130 #81T8,aASR COUNT CLOCK ONCE, OVERFLOW 
TSTB — @ASR “DID OVERFLOW SET? 
BMI 1$ SYES = THEN NEXT TEST 
:  SSSS$$SSSS$SSSSSSSSSSESES>>> ERROR <<<S$S$SSSSSSSSSSSSSSSSSSSSSSSSSSSS 


;ERROR - OVERFLOW, CSR BITO? 
;FAILED TO SET ON OVERFLOW 


; CHECK DWARF /TESTER INDICATOR 
IF NONE 


‘BR IF DWARF 
173116 


[DID WE ALLOW ENOUGH TIME?? 
NO-THEN WAIT 


3: SSSSSSSSSSSSSSSSSSSSSSESS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 6 ;OVERFLOW OUT NOT DETECTED 
;BY TESTOR 


|, SSSSSSSSSSSSSSSSSSSSSESS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


SEQ 0051 
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LL RRR ARERR RRR RRA ERE EERE RARE RR REE R ARERR ERR RARER EERE 
i*TEST 34 *TEST THAT OVERFLOW WILL CLEAR THE GO BIT 
eet ii iiiiiitiiiiiiiiiiiiritiiiitilit iii rir 
000004 TST34: SCOPE 
005077 173062 @ASR ;CLEAR THE CSR. 
012777 177777 173056 #-1,@ABR ;PRESET CLOCK TO -1. 
052777 000061 173046 #B1TS'!BIT4!BITO,@ASR ;START CLOCK, RATE:ST1 
052777 000400 173040 #B1T8,aASR ; COUNT ONCE, OVERFLOW 
; SHOULD OCCUR CLEARING 
ENABLE (CSR BITOO) 
032777 000001 173032 BIT #81T0,@ASR at THE ENABLE —_ 
001401 BEQ 1$ ;YES - NEXT TEST 
|  SSSSSESSSSSSSSSSSSSSSSSSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 6 ERROR - OVERFLOW FAILED 
;TO CLEAR ENABLE (CSR BITOO) 


1$: 
RRA AARARAAAARARARARAERARERAEAARARARAERARARAREARERARERERRARAREERE 


SRTEST 35 *TEST THAT GO BIT DOES NOT CLEAR ON OVERFLOW, IF MODE 1 


TTTTTITITITITITITI TTT ELIT LITLE LL LLL ELLE LLL 


1S135: 


173020 @ASR ;CLEAR THE CSR. 

177777 =—173014 #~-1,@ABR ;PRESET BUFFER=ONE COUNT FROM OVERFLOW. 
052777 000063 173004 #63,@ASR ;MODE 1, RATE:ST1, GO. 
052777 000400 172776 #B1T8,@ASR ;GENERATE MAINTENANCE ST1. 


032777 000001 172770 #B1T0,@ASR DID ENABLE (GO BIT) CLEAR? 
001001 1$ ;NO (GOOD) NEXT TEST. 


js SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


104006 ERROR 6 :GO BIT CLEARED ON OVERFLOW 
WHEN MODE 1 WAS SELECTED 


js SSS$S$SSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSS$SSSSSSSSSSSSSSSSSSSSSSSSSS 


172760 1$: CLR @ASR ;CLEAR THE CLOCK. 
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017746 
052777 


052777 


005726 
017737 
012677 
005737 
001004 
105766 
100401 


104006 
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172720 
004007 


172652 
001126 


177776 


172630 
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T35 *TEST THAT GO BIT DOES NOT CLEAR ON OVERFLOW, IF MODE 1 


001160 


172732 


172712 


172704 
172672 


001126 


SERRA RRR ERE: EREKRERRRE EERE REREREREREREEREREREREREER EE 


s*TEST 36 *TEST THE ABILITY OF CLOCK TO COUNT AT 1MHZ RATE 


:sTHIS TEST IS ee nate TO TEST THE CLOCK'S ASILITY 
:*T0 COUNT AT 1MHZ RATE. 


senate ones edabeenenenedeseessseeeennedennnanennneenceneneanaenn 


18136: 
#>,STIMES D0 5 ITERATIONS 
aASR /CLEAR CLOCK 
@ABR ;/CLEAR PRESET id 
WB1T0!10,@ASR  :/START CLOCK, MODEO, E: 1MHZ 
RO :/NOW WE'LL DOA LITTLE DELAY. THIS DELAY 
RO 3;/WILL AMOUNT TO APPROXIMATELY 
1$ 3/369 MS. 


/RDCLKE 

@ASR,-(SP) :/SAVE CSR 

#4007,@ASR +/SET MODE 3,DIS INTR OSC NO RATE 
*/THIS MUST BE N 
:/ORDER TO XFERR COUNTER 
+/TO BUFFER ON ST2. 

#B1T9,a@ASR */GENERATE ON ST2 PULSE 

‘ :/NOW GENERATE 


;/EIGHT ST1 PULSES 


;/RESET STACK 
;/READ THE PRESET BUFFER, 
;/PREVIOUS COUNTER 
(SP)+,@ASR 3;/CONTENTS ARE IN $8DDAT. 
$BDDAT ;/RESTORE CSR 
BN 2s :/YES = NEXT TEST. 
TSTB ~2(SP) 7/AT HIGH RATE MAY HAVE HAD OVERFLOW 
;/NOTE: CSR HAD BEEN PUT ON STACK. 
BMI 2s :/NEXT TEST IF OVERFLOW. 


js S$SSSSSSSSSSSSSSSSSSSSE$S>>> ERROR <<<S$$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 6 :/CLOCK FAILED TO COUNT AT 
RATE : 1MHZ 


js SS$$$$E$E$S$SS$SSSSSSSSSSS$E$E$S>>> ERROR <<<S$S$SS$$SSSSSSSSSSSSSSSSSSSSSSSSSSS 
2s: CLR @ASR :/CLEAR THE CLOCK. 


SEQ 0053 
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g FRRAARAAEERERAERREREKK RERREREREEREREEEREEREERRRERERREREREREKRKEKKREKH 


s*TEST 37 *TEST THE ABILITY OF CLOCK TO COUNT AT 100KHZ RATE 


eTHIS TEST IS Boe ha TO TEST THE CLOCK'S ABILITY 
;*TO COUNT AT 100KHZ RATE. 
-* 


TDSEEEEE IEEE ISIE IIE ISOIOITIEIIOOIOITIIOIIOOIUITICIOOOIOITIOIINOII It 
TST37: 
001160 MO #5, S$TIMES 33D0 5 ITERATIONS 
@ASR 3;/CLEAR CLOCK 
@ABR :/CLEAR PRESET BUFFER 
172602 #B1T0!20,aASR :/START CLOCK, MODEO, RATE: 100KHZ 
RO 3/NOW WE'LL D0, 4 LITTLE geld THIS DELAY 
RO :/WILL AMOUNT TO APPROXIMATELY 
1$ :/369 MS. 


3/-RDCLK=- 

017746 172570 @ASR,-(SP) +/SAVE CSR 

052777 004007 172562 #4007,@ASR :/SET MODE 3,DIS INTR OSC NO RATE 
*/THIS MUST BE DONE IN 
?/ORDER TO XFERR COUNTER 
:/TO BUFFER ON ST2. 

052777 001 172554 #B1T9,@ASR ; /GENERATE ON ST2 PULSE 

1 soent +/NOW GENERATE 


3/EIGHT ST1 PULSES 


(SP) + ;/RESET STACK 
017737 172532 001126 @ABR , SBDDAT ;/READ THE PRESET BUFFER, 
;/PREVIOUS COUNTER 
012677 172522 (SP) +,@ASR /CONTENTS - IN S8DDAT. 
005737 001126 $BDDAT ;/RESTORE C 
001004 BNE 2s /YES = NEXT TEST. 
105766 177776 TSTB -2(SP) s/AT HIGH ge MAY HAVE HAD OVERFLOW 
;/NOTE: CSR HAD BEEN PUT ON STACK. 
100401 BMI 2$ ;/NEXT TEST IF OVERFLOW. 


3s S$SSSSSSSSSSSSSSSSSSSSESES>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


104006 ERROR 6 3;/CLOCK FAILED TO COUNT AT 
; /RATE : 100KHZ 


js S$S$S$SSSSSSSSSSSSSSSSSESS>>> ERROR <<<SS$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
005077 2$: CLR @ASR 3/CLEAR THE CLOCK. 


Cn a a a a a ee el 


NNN 2 So SS Se 
wewevevuvuuvuves 
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FARRAR REERE. RERRERKRERERKEEKERREKEERREREKREREREREERKREEEEE 


TATEST 40 *TEST THE ABILITY OF CLOCK TO COUNT AT 10KHZ RATE 


:aTHIS TEST IS tA _ TEST THE CLOCKS ABILITY 
:*T0 COUNT AT 10KHZ 


EPPEITTOTTTTTTTTCTTTTTCTTTTTTTTTTTTTTTTT TTT TT TTeee tet ttt tee 
TST40: 
001160 MO #5 STIMES ::D0 5 ITERATIONS 
a@ASR :/CLEAR CLOCK 
@ABR :/CLEAR PRESET BUFFER 
172452 #B1T0!30,a@ASR t/START CLOCK, MODEO, RATE: 10KHZ 
RO + /NOW WE'LL DO A PeTfLe. ete THIS DELAY 
vs s/WILL AMOUNT TO APPROXIMATELY 


37-RDCLK=- 
017746 172440 @ASR,=-(SP) :/SAVE CSR 
052777 004007 172432 #4007, aASR :/SET MODE 3,DIS_INTR OSC NO RATE 
:/THIS MUST BE DONE IN 
:/ORDER TO — COUNTER 
:/TO BUFFER ST2. 
052777 172424 #B1T9,@ASR GENERATE ON N STZ PULSE 
#8. ,-(SP) ;/NOW GENERATE 
172412 : #81T8,@ASR 
(SP) 3/EIGHT ST1 PULSES 


64$ 
5726 (SP)+ 3/RESET STACK 
017737 172402 001126 @ABR , SBDDAT 3;/READ THE PRESET BUFFER, 
;/PREVIOUS COUNTER 
012677 172372 (SP) +,@ASR ;/CONTENTS ARE IN $8DDAT. 
001126 S$BDDAT i /RESTORE CSR 
2$ :/YES = NEXT TEST. 
177776 -2(SP) 3;/7AT_ HIGH RATE MAY HAVE HAD OVERFLOW 
;/NOTE: CSR HAD BEEN PUT ON STACK. 
2s 3/NEXT TEST IF OVERFLOW. 


3 SSSSSSSSSSSSSSSSSSSSSSSE$>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 6 3;/CLOCK FAILED TO COUNT AT 
; /RATE: 10KHZ 


js S$S$SSSSSSSSSSSSSSSSSSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
172350 2s: CLR @ASR 3:/CLEAR THE CLOCK. 
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FARRAR RERRERRERERREREE. RERREARRRREREREEEERREEREEREKEREEEERERERERERKEEE 


TATEST 41 *TEST THE ABILITY OF CLOCK TO COUNT AT 1KHZ RATE 


:*THIS TEST IS DESIGNED TO TEST THE CLOCK’S ABILITY 
*TO COUNT AT 1KHZ RATE. 


ie 
TS UBEAEEE EEE EIS ISIE IEEE EIEIO EITIOIISOIUITICITOOUIOIOEI IIIS 
TST41: 
001160 MO #5, $TIMES 3:D0 5 ITERATIONS 
@ASR ;/CLEAR CLOCK 
@ABR :/CLEAR PRESET BUFFER 
172322 #B1T0!40,@ASR + /START CLOCK, MODEO, RATE: 1KHZ 
RO 3/NOW WE'LL DO A PeTfLe. DELAY. THIS DELAY 
RO + /WILL AMOUNT TO APPROXIMATELY 
1$ +/369 MS. 


:/-RDCLK=- 
017746 172310 @ASR,-(SP) :/SAVE CSR 
052777 004007 172302 #4007, @ASR :/SET MODE 3, DIS INTR OSC NO RATE 


FER ON ST2. 
052777 172274 #B1T9,@ASR : GENERATE ON ST2 PULSE 
172262 8. ) ;/NOW GENERATE 


3/EIGHT ST1 PULSES 


005726 3/RESET STACK 
017737 172252 001126 ;/READ THE PRESET BUFFER, 
;/PREVIOUS COUNTER 
012677 172242 (SP) +,@ASR :/CONTENTS ARE IN $BDDAT. 
001126 $BDDAT :/REST ORE CSR 
BNE 2 /YES = NEXT TEST. 
177776 TSTB -2(SP) :/AT HIGH RATE MAY HAVE HAD OVERFLOW 
3;/NOTE: CSR HAD BEEN PUT ON STACK. 
BMI 2s 3/NEXT TEST IF OVERFLOW. 


| SSSSS$SSSSSSSSSSSSSSSSSESS>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 6 :/CLOCK FAILED TO COUNT AT 
; /RATE : 1KHZ 


o 


js SSSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
172220 2s: CLR @ASR :/CLEAR THE CLOCK. 
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33 REE REREREREREARREERREERERREEREERREEEKEREKRKEKH 


T*TEST 42 *TEST THE ABILITY OF CLOCK TO COUNT AT 100HZ RATE 


*THIS TEST IS Boat MATE ” TEST THE CLOCK'S ABILITY 
:*T0 COUNT AT 100HZ 


, sasdeedquwennaeennqnnesnerenqnnaneennqnsnasenqnqnenseessoqnouse 
1S142: 
001160 MO tinea 3:D0 5 ITERATIONS 


@ABR 
172172 #81T0!50,aASR RATE: 100HZ 
RO :/NOW WE'LL DO A LITTLE rs THIS DELAY 
RO [/WILL AMOUNT TO APPROXIMATELY 
1$ 3/369 MS. 
eg A 
017746 172160 @ASR,=-(SP) 27 SAV VE CSR 
052777 004007 172152 #4007, aASR ;/SET MODE 3,DIS INTR OSC NO RATE 
:/THIS MUST BE D N 
;/ORDER TO XFERR COUNTER 
:/TO BUFFER ON ST2. 
052777 001000 172144 #B1T9,@ASR ;/GENERATE ON ST2 PULSE 
000010 172132 MOV ° ;/NOW GENERATE 


:/EIGHT ST1 PULSES 


57 SP) + = 5% STACK 

017737 172122 001126 @ABR , SBDDAT /READ THE PRESET BUFFER, 
:/PREVIOUS COUNTER 

012677 172112 MO (SP)+,@ASR :/CONTENTS ARE IN $8DDAT. 

005737 001126 SBDDAT ;/RESTORE CSR 

001004 BNE 2s :/YES = NEXT TEST. 

105766 177776 TSTB -2(SP) 3/AT HIGH RATE MAY HAVE HAD OVERFLOW 
;/NOTE: CSR HAD BEEN PUT ON STACK. 

100401 BMI 2$ :/NEXT TEST IF OVERFLOW. 


: SSSSSSSSSSSSSSSSSSSSSSEES>>> ERROR <<<S$S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
104006 ERROR 6 ;/CLOCK FAILED TO COUNT AT 
RATE: 100HZ 


3  S$S$SSSSSSSSSSSSSSSSSSSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
172070 2s: CLR @ASR :/CLEAR THE CLOCK. 
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DIAGNOSTI 
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2 
052777 
012777 
005000 
005200 
001376 


017746 
052777 


052777 


017737 


012677 
005737 
001004 


105766 
100401 
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172012 
004007 


171754 


171744 
001126 


177776 


171722 


000100 


MACY11 


001160 


171562 
172030 
172024 


172004 


171776 
171764 


001126 


171712 
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T42 *TEST THE ABILITY OF CLOCK TO COUNT AT 100HZ RATE SEQ 0058 


RRA REREERERAEEREEREEEAEREERAEREEREERKERERKEEEEE 


TTEST 43 *TEST THE ABILITY OF CLOCK TO COUNT AT LINEFREQ RATE 


:% 
3*THIS TEST IS DESIGNED TO TEST THE CLOCK'S ABILITY 
:*TO COUNT AT LINEFREQ RATE. 

:% 


* 
FERRARA RARER EERE EERE REE REE EERER EERE ER EREE ERE RERER ERE 


TST43: 
#S,STIMES 3:D0 5 ITERATIONS 
@ASR TCLEAR CLOCK 
@ABR /CL a. PRESET BUFFER 
#SW10,aSWR :TEST IT LINE FREQ IS ENABLED 
TST44 = IF SwWi0=0 


#B1T6,aKWL NO=- ENABLE LINE CLOCK 


#B1T0!70,@ASR ;/START CLOCK, MODEO, RATE:LINEFREQ 

RO 3;/NOW WE'LL DO A LITTLE DELAY. THIS DELAY 
RO 3/W1LL AMOUNT TO APPROXIMATELY 

1$ ;/369 MS. 


:/~RDCLK- 
@ASR,-(SP) 3/SAVE CSR 
#4007,@ASR 3/SET “aa 3, vy Aa OSC NO RATE 


0 FER ON ST2. 
#BIT9,@ASR :/ GENERATE re ST2 PULSE 
& ) ;/NOW GENERA 


3;/EIGHT ST1 PULSES 
3/RESET STACK 
;/READ THE PRESET BUFFER, 
:/PREVIOUS COUNTER 
(SP) +,@ASR ;/CONTENTS ARE IN $8DDAT. 
$BDDAT SR 
BNE 2$ ; 
TSTB -2(SP) :/AT HIGH RATE MAY HAVE HAD OVERFLOW 
;/NOTE: CSR HAD BEEN PUT ON STACK. 
BMI 2s ;/NEXT TEST IF OVERFLOW. 
js SSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 6 :;/CLOCK FAILED TO COUNT AT 
3 /RATE:LINEFREQ 


7 SESSSSSSSSSSSSSSSSSSSSESS>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
2s: CLR aASR ;/CLEAR THE CLOCK. 


BIC #B1T6,aKWL DISABLE LINE CLOCK 


LARA RRR ERE RAE ERE ARERR RE RRREEREERERERR EERE 
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Fe ae a hi et ee ee, ee a et a a 
ee el ed ed ed ed 
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007504 
007506 


007514 
007520 
007524 


007532 
007540 


007542 
007544 


007642 


DIAGNOSTI 
18-SEP-78 


000004 
012737 


005077 
005077 


052777 
052777 
005000 
005200 
001376 


017746 
052777 


052777 


017737 


012677 
005737 


001003 
105777 
100003 
005037 


104011 


005077 


18: 03 


000020 


171700 
171676 


000001 
000400 


171610 


171600 
001126 
171566 


001124 


171552 


MACY11 


001160 


171666 
171660 


171640 


171632 
171620 


001126 


H 
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144 *TEST THAT COUNTER DOESN'T COUNT WHEN ‘SLAVE IN'’ RATE IS SELECTED 


s*TEST 44 

TST44: SCOPE 
MOV 
CLR 
CLR 
BIS 


BIS 
CLR 


1$: INC 
BNE 


64$: BIS 


2$: CLR 


5 
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*TEST THAT COUNTER DOESN'T COUNT WHEN ‘'SLAVE IN'’ RATE IS SELECTED 


; {RRA AAARARERRERREKEH RRERRRAARAEAAEEAEARRAREREREREREEEREEEERREERKKE 


#20, $TIMES 


@ASR 
@ABR 


#81T0,@ASR 
#B1T8,@ASR 
RO 


RO 
1$ 


@ASR, ~ (SP) 
#4007, @ASR 


er 


(SP) +,@ASR 
SBDDAT 

2$ 

aASR 

3$ 


SGDDAT 


3:D0 20 ITERATIONS 


CLEAR CSR. 
:CLEAR PRESET BUFFER. 


SET GO BIT, RATE:''SLAVE IN" 
GENERATE A MAINTENANCE ST1. 


NOW DO A SHORT DELAY. 


3/-RDCLK~- 
:/SAVE CSR 
:/SET MODE 3.DIS INTR OSC NO RATE 
:/THIS MUST BE DONE IN 
:/ORDER TO XFERR COUNTER 
3/TO BUFFER ON ST2. 
; /GENERATE ir ST2 PULSE 
:/NOW GENERATE 


:/EIGHT ST1 PULSES 


/RESET STACK 

;/READ THE PRESET BUFFER, 
;/PREVIOUS COUNTER 
3;/CONTENTS ARE IN $8DDAT. 
;/RESTORE CSR 

71F ANY COUNT, ERROR. 
[CHECK FOR OVERFLOW. 

7 1F NO OVERFLOW, NEXT TEST 


CLEAR FOR TYPEOUT, EXP"D ZERO. 


3  S$SS$SSSSSSSSSSSSSSSSSSSES>>> ERROR <<<S$SSS$SSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 


11 


CLOCK COUNTED WHEN RATE:"'SLAVE IN"' 
WAS SELECTED. 


3  SSSSSSSSSSSSSSSSSSSSSESES>>> ERROR <<<SSS$SSSSSSSSSSSSSSSSSSSSSSSSSSSS 


3$: CLR 


@ASR 


CLEAR CLOCK'S CSR. 


SEQ 0059 


CVMNC-8 MNCKW 
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DIAGNOSTI 
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000004 
012737 


105777 
100401 


000004 
012737 


012746 
012746 
000002 


005077 
012777 


012777 
052777 
012777 


012746 
012746 
000002 
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171510 


000020 


000340 
007736 


171456 
177777 


000161 
000400 
010922 


000000 
010004 
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171452 


171442 
171434 
171432 


PAGE 86 
*TEST THAT THE CLOCK WILL COUNT IN MODE 1 


SARA RAR RRA REREREERREREREEERERERERERER RE 


s*TEST 45 *TEST THAT THE CLOCK WILL COUNT IN MODE 1 


RARER RRR REA ERRRE REE A RE RRRARER RE RERE RRR Ree 
TST45: 
#20,$TIMES 33D0 20 ITERATIONS 


;CLEAR THE CSR. 
SPRESET BUFFER REG. 
START CLOCK,RATE:1 MHZ,MODE 1. 


NOW DO A SHORT DELAY SO THAT THE 
CLOCK CAN COUNT TO OVERFLOW. 


OVERFLOW SHOULD HAVE SET. 
;GOTO NEXT TEST IF SO. 


js SSSSSSSSSESSSSSSSSSSSSESS>>> ERROR <<<S$S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 6 ;CLOCK FAILED TO COUNT UP AND SET 
OVERFLOW IN MODE 1. 


: :SSSSSSSSSSSSSSSSESSSSSESS>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
2s: 


-SBTTL * 
-SBTTL *PHASE 4 CLOCK INTERRUPT TEST. 
.~SBTTL * 


‘ 


[RARER REEREREREREREREEREEEREE EERE ERERKERRRRERERREREE RH 


TRTEST 46 *TEST THAT THE CLOCK WILL INTERRUPT ON OVERFLOW 


LARA ERERRRERRRREREREERERERREEREREREERREEREERRERERERERREERKRE 


18146: SCOPE 
MO #20, STIMES 3:D0 20 ITERATIONS 


#340,-(SP) ;PUT PRIORITY ON STACK. 
#64$ ,-(SP) ;PUT RETURN ADDRESS ON STACK 
7DO AN RTI, PUTS PRIORITY IN CPU. 


@ASR CLEAR CLOCK'S CSR. 
#-1 ,@ABR 7SET PRESET BUFFER TO ALL ONES. 


#161,@ASR ZSTART CLOCK, RATE:ST1. 
#B1T8,aASR [GENERATE A MAINTENANCE ST1. 
#1$,aVECT1 SET INTERRUPT ADDR. 


#0,-(SP) ;PUT PRIORITY ON STACK. 
#65$,-(SP) [PUT RETURN ADDRESS ON STACK 
DO AN RTI, PUTS PRIORITY IN CPU. 
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010004 :STALL TIME 
010006 
010010 000240 
410012 171402 CLR @ASR :REMOVE IRQ. ENABLE 
: : SS$$SSSSSSSSS$SSSSSSSSSSSS>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
0110016 ERROR 7 sCLOCK FAILED TO INTERRUPT. 
:  SS$$SS$SESSSSSSSSSSSSSSES>>> ERROR <<<S$$SSS$SSSSSSSSSSSSSSSSSSSSSSSSSS 
- BR 2$ 
' ADD #4, SP s/ADD #4 TO STACK POINTER. 


062706 000004 
005077 2$: CLR @ASR CLEAR THE CLOCK. 
013777 MOV VECTP,aVECT1 12 RESTORE VECTOR. 


AOAC IDIOIISIIIOIIIEIIDIOIIDIOIIOIIOIIDIOIIOIIOIIUICIIUIIOIOIIOIIOIIOIIUIOIIOIIOD 
SRTEST 47 *TEST THAT ST2 WILL CAUSE AN INTERRUPT 
RRR ERE EERE ERE REE RR Re 
000004 18147: SCOPE 
012737 000020 MO #20, $TIMES 32D0 20 ITERATIONS 


012746 000340 #340,-(SP) PUT PRIORITY ON STACK. 
010062 #64$,-(SP) ;PUT RETURN ADDRESS ON STACK 
;DO AN RTI, PUTS PRIORITY IN CPU. 


171332 sCLEAR CLOCKS CSR. 

010140 rs.a avECcT2 SET UP ie Lape og +t 
010074 040001 #81114'BITO,@ASR: SET "'INT2’',AND 
010102 052777 001000 #B1T9,@ASR GENERATE A MAINTENANCE ST2. 
010110 012746 000000 #0,-(SP) PUT PRIORITY ON STACK. 

010122 #65$,-(SP) ;PUT RETURN ADDRESS ON STACK 
O1O1D2 ;DO AN RTI, PUTS PRIORITY IN CPU. 


010122 sSTALL TIME 


@ASR REMOVE IRQ. ENABLE 
3 SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SS$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 7 :CLOCK FAILED TO INTERRUPT ON ST2. 
7 SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<S$S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
1$: - 
#4,SP ;/ADD #4 TO STACK POINTER. 


062706 000004 
005077 171250 2s: C @ASR AR CLOCK'S CSR. 
013777 001432 171252 VECT2P ,avect2 ist RESTORE VECTOR. 
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gs REAR ARARARRREREEEEERERAEEKRARARAAAKARRERARRRERAERERHRRKREREREKRKK 


3*TEST 50 *TEST THAT ST1 WILL CAUSE AN INTERRUPT 


+ RRRRARRRERRRRRRRR REE REAR REA RARER ERR RRRRARR EERE REAR RR 
010156 000004 TST5O: SCOPE 
012737 000020 MOV #20, STIMES D0 20 ITERATIONS 


012746 000340 #340,-(SP) sPUT PRIORITY ON STACK. 
012746 010200 #64$,-(SP) “PUT RETURN ADDRESS ON STACK 
000002 ‘DO AN RTI, PUTS PRIORITY IN CPU. 
005077 171214 ; @ASR 32 CLEAR CSR 
012777 010250 #1$,aVvECT2 ‘2 SET UP INTR. VECTOR. 
052777 040400 #81T14'BIT8,aASR ;2 INTR ENABLE AND ST1. 
012746 000000 #0,-(SP) :PUT PRIORITY ON STACK. 
010232 #65$,-(SP) “PUT RETURN ADDRESS ON STACK 
‘DO AN RTI, PUTS PRIORITY IN CPU. 


32 INTR. FROM HERE. 


171154 @ASR REMOVE IRQ. ENABLE 
7s SSS$SSSSSSSSSSSSSSSSSSESE>>> ERROR <<<S$S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 7 32 CLOCK FAILED TO INTR. ON ST1. 
18 BR 2s 


000004 #4 ,SP 3/ADD #4 TO STACK POINTER. 
171140 2s: @ASR z2 CLEAR CSR. 

013777 001432 171142 VECT2P,aVECT2 ;2 RESTORE INTR. VECTOR. 

012746 000000 #0,~(SP) PUT PRIORITY ON STACK. 


012746 010300 #66$ ,- (SP) ;PUT RETURN ADDRESS ON STACK 
000002 ;DO AN RTI, PUTS PRIORITY IN CPU. 


& 
*PHASE 5 ADVANCED TESTING 
& 
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171100 
171072 


171064 


001126 
001124 


171024 
171016 


171010 


001126 
001124 
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*TEST THAT THE ‘FOR’ BIT WILL SET ON 2 ST2°S 


SERRA RARARARRERERERRRARRERERRRERRRERERERERERERERERARRRREERRERER 


s*TEST 51 *TEST THAT THE ‘FOR'’ BIT WILL SET ON 2 ST2°S 


SL AAA RARER ARERAR AERA REREREREERERERERRRERRERERERERERRRERRE RH 


TSTS1: 
sSTART WITH CSR CLEAR. 
@ASR ;SET GO BIT 
#B1T9,@ASR GENERATE THE 1ST ST2 PULSE. 
#B1T9,@ASR ; GENERATE 2ND ST2 PULSE. 
;THIS SHOULD CAUSE FOR BIT TO SET. 
#B1T12,@ASR :DID FOR BIT SET? 
1$ Zs YES-THEN NEXT TEST. 


@ASR, $BDDAT “RECORD CSR. 
#81T15!B1T12!B1T0, $GDDAT :RECORD S/B. 


j  SSSSS$SSSSSSSSSSSSSSSSSSS>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 1 ;ERROR-"FOR’* BIT FAILED TO SET ON 
ON TWO SUCCESIVE ST2 PULSES. 


: SSSSSESSSSSSSSSSSSSSESSSEE>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
1$: 


riiiiititiiiiiiiiiiiiiiiiiii ii 
T*TEST 52 *TEST THAT THE ‘FOR'' BIT WILL SET ON 2 ST1'S 


RARER ARERAKEKEEREREKEKERERREKEKEEEEKEKE 


iST52: 
;START WITH THE CSR CLEAR. 
@ASR ;SET GO BIT. 
#B1T08,aASR GENERATE AN ST1. 
#81T08,aASR GENERATE ANOTHER sT T1. 
SAT THIS POINT THE 'FOR'' BIT SHOULD HAVE SET 
T3138. -@ASR :DID THE FOR BIT SET? 


aASR “RECORD CSR. 
ei iowmiTi2:e1TO. $GDDAT :RECORD S/B. 
+ :S$$S$SSSS$SSSSSSSSSSSSSES>>> ERROR <<<SSS$SSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 1 ;ERROR- ‘FOR’’ BIT FAILED TO SET ON 
TWO SUCCESIVE ST1 PULSES. 


5: SSSSSSSSSSSSSSSSSSSSESSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


SEQ 0053 
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010512 


010514 


010514 


010540 
010546 


010576 


010600 


DIAGNOSTI 
18-SEP-78 


000004 
012737 


032777 
001007 
017737 
012737 


104001 


052777 


042777 
052777 


017737 


18: 03 


000002 
170754 


177777 
000013 


010000 


170716 
010213 


Mm 5 
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001160 


170750 
170740 


170724 


001126 
001124 


*TEST THAT FOR BIT WILL SET ON TWO OVERFLOWS 


FERRARA AARARAR RARER REREERRERARRARRRRARARREEERERERERERRERERERRER 


i*TEST 53 *TEST THAT FOR BIT WILL SET ON TWO OVERFLOWS 


SL AAARAAARARRAERAERARAAAAAEAAEEAERERERERARERERRRARRRRRRARERRRE RHR 


TST5S3: 
#2, $TIMES 32D0 2 ITERATIONS 


:START WITH CSR CLEAR. 
*PRELOAD BUFFER REG. 
‘START CLOCK,MODE 1,1MHZ. 
‘NOW DO A SHORT DELAY 
“DURING THIS DELAY, THE CLOCK WILL 
SHAVE OVERFLOWED TWICE- 
‘THIS SHOULD CAUSE THE FOR BIT TO SET. 
#B1T12,@ASR ‘DID FOR SET? 
2$ TYES-NEXT TEST. 
@ASR, $BDDAT SNO=RECORD THE CSR. 
#010213,$GDDAT :RECORD S/8. 


| SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SS$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 1 ERROR FOR BIT FAILED TO SET ON 
; TWO SUCCESSIVE OVERFLOWS. 


1  SSSSSSSSSSSSSSSSSSSSESSS>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
23: 


FERRARA RRR RR RRR RRRAEE RRR AERA RARER REE RR 
TEST 54 *TEST THAT FOR BIT WILL CLEAR IF GO BIT IS SET 


JL RARAR RARER ARERRERERERRERRERRERERREERRAERERRERRREREERERRERRERRER 


TST54: 
#B1TO,@ASR CLEAR CSR,SET GO BIT. 
#BIT9,@ASR 
#B1T9,a@ASR 


3 RE. 
#81T0!'BIT15,a@ASR :CLEAR GO BITAND ST2 FLAG. 
#B1T0,@ASR SET THE "'GO'’ BIT AGAIN 

SHOULD CLEAR FOR BIT. 
@ASR,SBDDAT [READ THE CSR. 
#100001, SGDDAT ;RECORD WHAT CSR S/B. 
#BIT12, $BDDAT :DID FOR BIT CLEAR? 
1$ ;YES NEXT TEST. 


|: SSSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 1 FOR BIT FALED TO CLEAR 
jWHEN ‘'GO"’ BIT WAS SET. 


;  SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
1$: CLR @ASR CLEAR THE CSR. 
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JL URAAA AA AAARAARARAEREREEREREREAERERRREREARRERARERRRERRRERRRERRES 


;*TEST 55 *TEST THAT WE CAN DISABLE THE INTERNAL OSC 


SL RARRRRRARRRAARRRRAR ARR E RARER RERAR ARERR RERREREE ERA EERE EE 
000004 TSTSS: 
012737 000005 MOV #5, STIMES 3:D0 5 ITERATIONS 


170576 @ASR ;CLEAR THE CSR 
170574 @ABR ;CLEAR THE PRESET BUFFER 
001124 $GDDAT CLEAR EXPED. 


012777 004000 170560 #B1T11,@ASR DISABLE THE INTERNAL OSC. 
55 000011 170552 #81T3!B110, -@ASR ;START CLOCK:RATE 1MHZ. 


105200 : RO ;DELAY A SHORT TIME. 
001376 1$ 
;/-RDCLK- 


017746 170540 @ASR,-(SP) */SAVE CSR 

052777 004007 170532 #4007, @ASR */SET MODE 3,DIS INTR OSC NO RATE 
*/THIS MUST BE DONE IN 
:/ORDER TO KFERR_ COUNTER 


052777 1 170524 = 19, — 


:/NOW GENERAT 
170512 


3/EIGHT ST1 PULSES 
SP) ;/RESET STACK 
010714 017737 170502 001126 ;/READ THE PRESET BUFFER, 
;/PREVIOUS COUNTER 
010722 012677 170472 (SP) +,@ASR :/CONTENTS ARE IN $SB8DDAT. 
010726 005737 001126 SBDDAT ;/RESTORE CSR 
010732 001401 2s :NO = GOOD = NEXT TEST. 
| SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


010734 104011 ERROR 11 :CLOCK DISABLE INTERNAL 
:OSC. DID NOT WORK. 


7s SSSSS$SSSSSSSSSSSSSSSSSSS>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
2$: CLR @ASR ;CLEAR THE CSR. 


Ne eR et et et et OS ot oS 


oa 
NOwwwwvwvvvvuevevvvw 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
7 
7 


oa 
N 


333 





CVMNC-8 MNCKW 
CVMNCB.P11 


Fn ae tp i i a i ae a ee a el 
ee ce a et ed ed ed ed nd 
ee a 


010742 
010744 


010762 
010770 
010774 
011002 
011004 
011006 


011012 


011020 


011054 
011060 
011064 


011066 


011070 


DIAGNOSTI 


18-SEP-78 18: 03 


052777 
005200 
001373 
017746 
052777 
052777 


017737 


012677 
005737 
001001 


104011 


005077 


170450 
170446 
004000 


000011 
177754 
000400 


170406 
004007 


001000 
000010 
000400 


170350 


170340 
001126 


170324 


MACY11 30A(1052) 
156 


170436 
170430 


170416 


170400 


170372 
170360 


001126 


te 


ig 


64 


7  S$SSS$SSSSSSSSSSSSSSSSSSSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


+ :SSSSSSSSSSSSESSSSSSSSSEES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
2$: 


8 
23-OCT-78 11:08 PAGE 98 
*TEST THAT CLOCK CAN BE COUNTED USING MAINTENANCE OSC 


FRRRARRERRARRERRRREERARRERERERERRERRERERRERERRREREERERRRREERERRER 


: ATEST 56 


*TEST THAT CLOCK CAN BE COUNTED USING MAINTENANCE OSC 


WITTT TOTTI ICITTITITisttittThititTLiitititiititii titi te 


T56: SCOPE 


$: BIS 


ERROR 


CLR 


@ASR 
#B1T11,@ASR 
#81T3!B1T0,@ASR 
#-20., 
#B1T8,@ASR 


RO 
1$ 


@ASR,-(SP) 
#4007, @ASR 


pie @ASR 
a P) 


(SP) +,@ASR 
SBDDAT 


11 


@ASR 


CLEAR THE CSR 
CLEAR THE PRESET BUFFER. 


;START CLOCK, 1MHZ, GO. 
:SET TO COUNT 20 TIMES 


:2 GENERATE 1 tana osc. 
IT TAKES 10 
SC_TO EQUAL 1 
D0 20 MAINTENANCE OSC. 


:7-RDCLK=- 

S/SAVE CSR 

3/SET MODE 3,DIS INTR OSC NO RATE 
:/THIS MUST BE DONE IN 

:7ORDER TO XFERR COUNTER 

3/TO BUFFER ON ST2. 

:/GENERATE ON ST2 PULSE 

;/NOW GENERATE 


3/EIGHT ST1 PULSES 


3/RESET STACK 

;/READ THE PRESET BUFFER, 
;/PREVIOUS COUNTER 
;/CONTENTS ARE IN S$BDDAT. 
;/RESTORE CSR 

:YES = NEXT TEST. 


ERROR COULD NOT COUNT USING 
MAINTENANCE OSC. 


CLEAR THE CSR. 


SEQ 0066 


C 
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FRRRRRRERERRERRERRREEEREREREREREEERERREREREREEERERERERERERRERRER 


:#TEST 57 *TEST THE CLOCK'S 1MHZ DIVIDER 


IN THIS TEST WE WILL CHECH OUT PART OF THE DIVIDER CHAIN LOGIC. 
[*THERE ARE SEVERAL TESTS THAT ARE USED TO DO THIS,THIS TEST CHECKS 
;*THAT 100,000 MAIN OSC PULSES GIVES US 10000. COUNTS AT 1MHZ RATE. 


Teriiretieti iti tiiititiitetii titi itiiiititi itis, 
000004 TST57: 
012737 MOV #5, STIMES 37:D0 5 ITERATIONS 
3/-DIVCH=- 

#10.,R0 

@ASR 

@ABR 

170272 #B1T11,@ASR ;/DISABLE INTERNAL OSC. 

052777 170264 #7!10,@ASR 3/SET GO,RATE: 1MHZ.,MODE 3. 


012701 : #10000. ,R1 :/DO THAT MANY TIMES. 
000400 170252 : * phaiain 3;/GENERATE AN OSC PULSE. 


170234 
170222 


ad ed od ond od ed ed end eb ed atantadadat 
- 
SRRENSSESE KRSESK 


Se 


001126 @ABR ,, SBDDAT ;/READ COUNT. 
#10000~, $1PO */EXPECT THESE MANY COUNTS. 
STNPO, ,SBDDAT :/DID WE GET THEM?? 
11 :/ERROR 100,000. 086 PULSES 
:/DID NOT GENERATE 10000. 
*/COUNTS AT RATE 1MHZ 


so Qa a 
BSS BG SS SS SS SY YS Ye ee 
SCO00COO COCOCOCOCOCCSOOCO COO 
23228 sated abated 

AOLAONM 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
c 
( 
( 
( 
( 
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FERRARA REE REE RE REREREREREREREREREEERREERERERERERE RRR 


: TEST 60 *TEST THE CLOCK'S 100KHZ DIVIDER 


SIN THIS TEST WE WILL CHECH OUT PART OF THE DIVIDER CHAIN LOGIC. 
+ * THERE ARE SEVERAL TESTS THAT ARE USED TO DO pap F THIS TEST CHECKS 
t*THAT 100,000 MAIN OSC PULSES GIVES US 1000. OUNTS AT 100KHZ RATE. 
penal an Rae Bn Bek RB as ek Sh ote Boe 
000004 TST60: 
012737 MOV WS, STIMES 3:D0 5 ITERATIONS 
3/-DIVCH= 


#10. ,RO 
@ASR 


@ABR 
#81T11,@ASR eTRET GO. INTERNAL OSC. 
#7!20,@ASR ;/SET GO,RATE: 100KHZ.,MODE 3. 


#10000. ,R1 ;/DO THAT MANY TIMES. 
-@ASR 3;/GENERATE AN OSC PULSE. 


3/READ COUNT. 
37EXPECT THESE MANY COUNTS. 
en :/DID WE GET THEM?? 


;7ERROR 100,000. OSC PULSES 
:/DID NOT GENERATE 1000. 
:/COUNTS AT RATE 100KHZ 


SSeS ROSSSSRES 


ee ee ee ee ee et Ot 
~m 


ek ek eg) at ot ot ot 0 2 I SS 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
c 
( 
( 
( 
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FRR ARERR ERRRERREREREEREEEREEEREEREERERERRERRRRRRRRERRRRRR 


: TEST 61 *TEST THE CLOCK'S 10KHZ DIVIDER 


IN THIS TEST WE WILL CHECH OUT PART OF THE DIVIDER CHAIN LOGIC 
:* pte ARE SEVERAL TESTS THAT ARE USED TO DO yt THIS TEST CHECKS 
T 100,000 MAIN OSC PULSES GIVES US 100. COUNTS AT 10KHZ RATE. 
parm nen A Bn a Ao tn Rha wR ck Me Bn 
011364 000004 18161: 
011366 012737 MOV #5, STIMES i 


011374 00001 #10. ,RO 
011400 @ASR 
011404 @ABR 

011410 170002 #81T11,@ASR ;/DISABLE INTERNAL OSC. 
011416 167774 #7!30,@ASR 3/SET GO,RATE: 10KHZ.,MODE 3. 


011424 012701 : #10000. ,R1 ;/DO THAT MANY TIMES. 
000400 167762 : ne 3/GENERATE AN OSC PULSE. 


167744 
167732 
011470 
011472 167724 ;/READ COUNT. 
:/7EXPECT THESE MANY COUNTS. 
:/DID WE GET THEM?? 
011516 ;7ERROR 100,000. OSC PULSES 


;/DID NOT GENERATE 100. 
3/COUNTS AT RATE 10KHZ 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
c 
( 
( 
( 
( 


et WW a Ss 9 DP PP HP BS I a SS 
eee Ne ee a es ae ae a ae ee a ee ela ae ele oe ae ee 
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CVMNCB.P11 18-SEP-78 18: 03 T61 *TEST THE CLOCK'S 10KHZ DIVIDER SEQ 0070 

on 

(5) FERRARA RRR RRERERERRAERREREEERERAEREREREERRERRERERRERERRERERRRREER 
43 sores! 62 *TEST THE CLOCK'S 1KHZ DIVIDER 

(5) IN THIS TEST WE WILL CHECH OUT PART OF THE DIVIDER CHAIN LOGIC. 
(5) ;* THERE ARE SEVERAL TESTS THAT ARE USED TO DO THIS,THIS TEST CHECKS 
(5) z*THAT 100,000 MAIN OSC PULSES GIVES US 10. COUNTS AT 1KHZ RATE. 
(4) t RRRRRRRRER ARERR ARERR ERE ER RARE EERE REE 
(3) 011520 000004 TST62: SCOPE 

7 011522 012737 000005 001160 MOV #5 ,STIMES ye RM ITERATIONS 

(1) 011530 012700 000012 MOV #10. ,RO 

(1) 011534 005077 167660 CLR @ASR 

(1) 011540 005077 167656 CLR @ABR 

(1) 011544 052777 004000 167646 BIS #B81T11,@ASR ;/DISABLE INTERNAL OSC. 

43 017552 052777 000047 167640 BIS #7!40,@ASR 3/SET GO,RATE: 1KHZ.,MODE 3. 
(1) 011560 012701 023420 1$: MOV #10000. ,R1 :/DO THAT MANY TIMES. 

(1) 011564 052777 000400 167626 2$: BIS #8118, @ASR ;/GENERATE AN OSC PULSE. 
(1) 011572 005301 DEC R1 

(1) 011574 001373 2$ 

(1) 011576 005 DEC RO 

(1) 7 BNE 1$ 

(1) 011602 052777 001000 167610 BIS #B1T9,@ASR 3/ST2 

(1) 011610 012700 000010 MOV #8. ,RO 

(1) 011614 052777 000400 167576 3$: BIS #B81T8,@ASR 

(1) 011622 005300 DEC RO 

3 : 011624 001373 BNE 3$ 

(1) 011626 017737 167570 001126 MOV @ABR , SBDDAT :/READ COUNT. 

(1) 011634 012737 000012 001446 MOV #10. ,STMPO ;/EXPECT THESE MANY COUNTS. 
(1) 011642 023737 001446 001126 CMP STNPO, SBDDAT :/DID WE GET THEM?? 

<3) 011650 001401 BEQ TST ie 

(1) 011652 104011 ERROR 4"° 37ERROR 100,000. OSC PULSES 
(1) :/DID NOT GENERATE 10. 

At :/COUNTS AT RATE 1KHZ 
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FERRARA RERERERRERERRREEERRRRERERERERERREREERRRERRRRRERERRERE 


:#TEST 63 *TEST THE CLOCK'S 100HZ DIVIDER 


eIN THIS TEST WE WILL CHECH OUT PART OF THE DIVIDER CHAIN LOGIC. 
s* THERE ARE SEVERAL TESTS THAT ARE USED TO DO THIS,THIS se CHECKS 
:*THAT 100,000 MAIN OSC PULSES GIVES US 1 COUNTS AT 100HZ RATE. 
RARER ERERERRRERRERREERERERRRERERERERERERERRREREREREREERER ERE ER 
011654 000004 78163: 
011656 012737 MOV 4S, STIMES eS 
3/-DIVCH- 


#10. RO 
@ASR 
@ABR 
167512 #B1T11,@ASR ;/DISABLE INTERNAL OSC. 
052777 167504 #7!50,@ASR [/SET GO,RATE: 100HZ.,MODE 3. 


012701 : #10000. ,R1 ;/DO0 THAT MANY TIMES. 
000400 167472 : * tdpaaaigsen ;/GENERATE AN OSC PULSE. 


167454 
167442 


011762 001126 3/READ COUNT. 
011770 0000 #1 ,$TMPO 37EXPECT THESE MANY COUNTS. 
:/DID WE GET THEM?? 


;7ERROR 100, te OSC PULSES 
Atty NOT GENERATE 1 
;/COUNTS AT RATE "Foonz 


Ft an tt an ae tan tan tn i at a Et at te, i a a a ee, te, a ee, a el 
Qwuewuewvevuvwvwvyvvvvuvuvvvuvuvvuvvvvw 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
3 
1 
1 
1 
1 
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RARER KREKEEARREEREKREERRAE SO OREREREREEEHEREREEREKH 


te TEST 64 sTEST THE CLOCK'S MODE 2 OPERATION 


IN THIS TEST WE'LL CHECK MODE 2 OPERATION 

:*MODE 2: EXTERNAL EVENTS TIMING MODE 

>*SETTING THE GO BIT CAUSES THE COUNTER TO BEGIN COUNTING FROM 
7*ZERO AND TO FREE-RUN UNTIL THE GO BIT IS WRIT ere 

:*TO A ZERO THE COUNTER WILL CONTINUE COUNTING AF 

:*OVERFLOW. AN EXTERNAL PULSE FROM eg LR TRIGGER - 

:*(WHEN ST2 GO ENABLE IS A ‘0'') CAUSES DATA TO 

;* TRANSFER FROM THE COUNTER TO THE BUFFER/PRESET REG. 

; *WHILE THE COUNTER CONTINUES TO RUN. 


‘410 TEST THIS MODE, WE‘LL DISABLE THE INTERNAL OSC AND USE 
j sMAINTENANCE osc PULSES AS WELL AS A MAINTENANCE 
** ‘ 
** 
DDE EEE IOIIIIOIOIIOIIOUIUIOIOIOIIOIOITINIIOODIUIN IT IO 
012010 000004 TST64: 
012012 012737 000020 001160 MO #20,$TIMES 32D0 20 ITERATIONS 


167374 @ASR ;CLEAR THE CSR. 
167372 @ABR 4 THE PRESET REG. 
000060 167362 #60,@ASR 7SET RATE ST1 

052777 000005 167354 #5 ,@ASR ;START CLOCK MODE 2. 


012700 177776 : MO #-2.,RO ;SET TO GIVE 2 ST1 PULSES. 
asene 000400 167342 : ~ pecseatnae ; GENERATE AN ST1 PULSE 


001373 2s 31F NOT DONE 2 TIMES, LOOP. 


052777 167330 #B1T9,@ASR ;HERE'S THE BIGGIE! AN ST2 HAS BEEN GENERATED 
000002 1124 #2, $GDDAT ;THE PRESET BUFFER SHOULD BE 2. 
@ABR , SBDDAT [READ THE PRESET BUFFER 
$BDDAT,$GDDAT DID A COUNTER TO PRESET BUFFER OCCUR? 
012112 4$ YES - NEXT SUBTEST. 


js S$SSSSSSSSSSSSSSSSSSSESS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


012114 ERROR 5 3A COUNTER TO PRESET BUFFER DID NOT 
[HAPPEN PROPERLY. 


|: SSS$SSSSSSSSSSSSSSSSSSES>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSESSSSSSSSSSSS 
012116 BR 5$ 


4$: 
3/-RDCLK1- 
017746 167274 MO @ASR ,-(SP) + / SAVE CSR CONTENTS. 
000005 #5,@ASR +/SET TO ve 2.60 
100000 :/CLR ST 
001000 + GENERATE aa) PULSE. 
167250 1126 +/R EAD COUNT REG. 
052677 167240 (SP)+, @ASR + /RESTORE CSR. 





CVMNC-8 MNCKW 
CVMNCB.P11 


012160 


012164 
012172 


012174 


012176 
012176 
012204 
012210 


012216 


012256 
012262 


012264 


012266 
012270 


012276 
012302 


012306 
012314 
012322 


DIAGNOSTI 
18-SEP-78 


005737 


023737 
001401 


104005 


052777 
017746 


000004 
012737 


052777 


012700 
052777 


005200 
001373 


18: 03 
001126 
001124 


000070 
001124 
000400 
167176 
000005 
100000 
001000 
167152 
167142 
001126 


000020 


Hy Abs 
167174 
000060 


000007 
177776 
000400 
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001126 


167214 
167202 


167170 


001160 


167104 
167076 


167064 


*TEST THE CLOCK'S MODE 2 OPERATION 
TST $BDDAT ;/PREVIOUS CONTENTS OF COUNT REG 
37IN SBDDA 


CMP SGDDAT,$BDDAT  :WAS THE COUNTER ACCIDENTLY ZEROED? 
BEQ 5$ :NO = NEXT TEST. 


js SSS$SSSSSSSSSSSSSSSSSSSEES>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 5 THE COUNT REGISTER SHOULD NOT 
; HAVE BEEN EFFECTED BY THE ST2 


j SSSSSSSSSSSSSSSSSSSSSSESE>>> ERROR <<<S$S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


5$: 
;CLEAR THE RATE BITS. 


#B1T8,@ASR SET ST1 SIM. 
3/-RDCLK1- 
gr ;/SAVE CSR CONTENTS. 


#5 ,@AS 
#81T15,@ASR 


(SP)+,@ASR ;/RESTORE CSR. 
SBDDAT ;/PREVIOUS CONTENTS OF COUNT REG 
;/IN $SBDDAT. 


TST65 i 
:  S$$S$$SSE$SSSSS$SSSSSSSES$EE$>>> ERROR <K<<$$$SSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 1 :CLOCK COUNT REG SHOULD BE ZERO 


7s SS$$SSSSSSSSSSSSSSSSSSSES>>> ERROR <<<S$SSSCSSSSSSSSSSSSSSSSSSSSSSSSSS 


LAER REE RERERERERRRERERERERREREREEREREEREREREEEREERRRRERREREEE 


TATEST 65 *TEST THE CLOCK'S MODE 3 OPERATION 
IN THIS TEST WE*LL CHECK MODE 3 OPERATION. 
:*MODE 3 IS JUST LIKE MODE 2 EXCEPT THAT THE COUNT 
7*REG IS ZEROED AFTER AN ST2. 


* 

DDO UES ISIE IIIS IUOIIEII IU IIR RnR 
TST65: 

#20, $TIMES ::D0 20 ITERATIONS 

aASR : CLEAR THE CSR. 

@ABR CLEAR THE BUFFER REG. 

#60,@ASR ‘SET RATE: ST1 
#7,@ASR ‘START CLOCK: MODE 3 


#-2. :SET TO GIVE 2 $T1 PULSES 
felis, Sash ‘GENERATE AN ST1 PULSE 


2$ ;1F NOT DONE 2 TIMES, LOOP. 


SEQ 0073 
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012370 


012372 


012374 
012376 


012402 
012442 
012446 


012450 


012452 
0124 


012474 


DIAGNOSTIC 
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052777 


000440 
005037 


017746 


005077 
017737 
001403 
005037 


104002 


001000 167052 
000902 
167042 
001126 


001124 
167012 
000005 


166740 
166734 001126 
001124 
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*TEST THE CLOCK'S MODE 3 OPERATION 


3$: 


#BI1T9,@ASR sHERE'S THE BIGGIE! AN ST2 -s. BEEN GENERATED 


#2,$GDDAT ; THE PRESET BUFFER = 

@ABR , SBDDAT [READ THE PRESET BUFFER 

$BDDAT,$GDDAT DID A COUNTER TO PRESET BUFFER OCCUR? 
4$ YES = NEXT SUBTEST. 


js SSSSSSSSSSSSSSSSSSSSSSESS>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ERROR 5 3A COUNTER TO PRESET BUFFER DID NOT 
;HAPPEN PROPERLY. 


js SSSSSSSSSSSSSSSSSSSSESSS>>> ERROR <<<SS$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


BR TST66 
4$: SGDDAT ZExPECT ~— BACK FROM COUNT REG. 


LK 
we -(SP) ony CSR Se 


wills, @ASR 

#B1T9,@ASR 3/GENERATE ST2 PULSE. 

@ABR , SBDDAT :/READ COUNT “EG. 

(SP)+,@ASR ;/RESTORE CSR. 

SBDDAT attain My CONTENTS OF COUNT REG 


SBDDAT 
5$ :IF SO - NEXT TEST. 
: SSSSSSSSSSSSSSSSSSSSSSEE>>> ERROR <<<S$S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 5 ;THE CLOCK FORGOT TO ZERO THE COUNT 
[REG. AFTER AN ST2 OCCURRED ON 
tA MODE 3 COUNT. 
1 SSSSSSSSSSSSESSSSSSSSSSES>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
TST66 sé 
aASR NOW TRY CLEARING THE CSR. 
7 7 toa ;READ THE CSR - DID IT CLEAR? 
SGDDAT “NO - RECORD S/B. 
1 SSSSSSSSSSSSSSSSSSSSSSEES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 2 :CSR FAILED TO CLEAR 


3  SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


5$: 


SEQ 0074 
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*TEST MODULE TEST OF OVERFLOW OUT,ST2 IN AND OUT,AND ST1 IN 


RARER EREARRAARRERERERAEEEREREREEEREEREERAERRERERKEK 


:#TEST 66 


3365S: 
64$: 
32678: 
66$: 


3;69$: 


68$: 
1$: 


3  SSSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


3s SSSSSSSSSSSSSSSSSSSSSSSE>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


TO DO T 


SCOPE 

MOV #10,$TIMES 

TSTB DWARF 

BEQ TST67 :7;BR IF NOT 
MOV #1$,$LPERR 

MOV #1$,$LPADR 

TYPE ,65$ 

BR 64$ GET OVER 
eASCIZ <200><7>° DWARF : 

TYPE rh 

BR 66$ GET 
SASCIZ <200>"PANEL: ST1° IN (TTL), 
TYPE 69S 

BR 68$ 

-ASCIZ <200>°' ST2 IN (TTL), 
JSR PC,ANY2 

CLR @ASR ; CLEAR 

MOV #-1,@ABR 

MOV #11,@ASR :SET 1 MH 

NOP 

NOP 

NOP 

NOP 

MOV #102210, +5 ya sEXPECT ST1 AND 
MOV @ASR,$SBDDAT READ CSR 
CMP $GPDAT, SBDDAT =; 

BEQ TSI67 33 


ERROR 


*TEST MODULE TEST OF OVERFLOW OUT,ST2 IN AND OUT,AND ST1 IN 


;* IN THIS TEST mi a TEST OVERFLOW OUT,ST2 IN ST2 OUT, AND ST1 
IN. S WE CONNECTED THEM TOGETHER WITH THE TEST MODULE. 
NOTE: THIS TEST ONLY RAN IF TEST MODULE MODE SELECTED. 


1 


3:D0 10 ITERATIONS 
s DWARF MODE 


sTYPE ASCIZ cis 
THE ASCI 


Ait SWITCHES OFF, $1, S2-4 ON’ 


23 TYPE ASCIZ STRING 
OVER THE ASCIZ 
SLOPE IN (+)."" 


et oy ASCIZ STRING 
T OVER THE ASCIZ 
SLOPE IN (+).°'<7> 


CSR 
[PRESET FOR OVERFLOW. 
MHZ ,GO. 


sALLOW TIME FOR OVERFLOW. 


AND ST2 FLAGS TO BE SET. 


3ST1 AND/OR ST2 FLAG FAILED TO SET 


SEQ 0075 
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CVMNCB.P11 18-SEP-78 18: 03 167 *DWARF TEST OF OVERFLOW OUT,ST1 IN AND OUT,AND ST2 IN. SEQ 0076 


3-3 RERAAERRAEARKERERREERERERREEEREEEREREAERERREREERARREREKEREEKRARERREREKKKK 


7096 
(3) s*TEST 67 *DWARF TEST OF OVERFLOW OUT,ST1 IN AND OUT,AND ST2 IN. 
** 
oe TEST,WE'LL TEST OVERFLOW OUT,ST1 IN,ST1 OUT, AND 


UT TTT ITT TTT TTT Titi titi iii it iiiiiiiititii iii iii iii, 
167: 

000010 #10,$TIMES 3;D0 10 ITERATIONS 

001476 TO ;DWARF TEST 


013200 #1$,S$LPADR 
013200 MOV #1$,S$LPERR 
013056 ,65$ 22 TYPE ASCIZ Poel 
BR 64$ ;GET OVER THE AS 
<200><7>' DWARF: ALL SWITCHES OFF, “35-2 AND S2-3 ON’’ 


013140 .67$ 2a TYPE ASCIZ STRING 
BR 66$ GET OVER THE ASCIZ 
ASCIZ <200>"PANEL: SAME AS LAST TEST‘‘<7> 
JSR PC.ANY2 
CLR @ASR 
#~-1 ,@ABR PRESET FOR OVERFLOW. 
#11,@ASR SET 1MHZ,GO. 


-* 
-* 
-* 
Py 
ST 


i 


102210 #102210, a EXPECT ST1,ST2 FLAGS SET. 
166160 @ASR, SBDDAT sREAD CSR. 
001124 SGDDAT , SBDDAT 
013250 TST70 ae 
5s S$$SSSSSSSSSSSSSSSSSSSES>>> ERROR <<<S$S$S$SSSSSSSSSSSSSSSSSSSSSSSSSSSS 
013252 ERROR 1 7ST1 AND/OR ST2 FLAG(S) FAIL TO SET. 


3 SSSSSSSSS$FSSSSSSSSSSSSES>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
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CVMNCB.P11 18-SEP-78 18:03 770 *IF ENABLED,CHECK THRESHOLD ST1 FROM TESTOR 


FERRARA AREER ERERERERE ARE RARRERERREREEREKERRRERRERERRRREERER EER 


;*TEST 70 *IF EN\BLED,CHECK THRESHOLD ST1 FROM TESTOR 


+ RRRRRRRRR RARER RERARARRARA REE RRRRARRARER ERE RRRRRAA REE E 
013254 TST70: 
013256 001202 : CHECK IF FIRST PASS 
0132 1 BNE 1$ IF NOT 

001476 TOPERAT ING IN TESTOR/DWARF MODE? 

2 YES DO THIS TEST. 
014512 
g BM T 
001500 a AS ; QUESTION ALLREADY BEEN ASKED? 
013314 sie ASCIZ STRING 


$ ;GET OVER THE ASCIZ 
<200>415 VOLT SUPPLY TO DWARF?(Y OR N)# 


(SP) +,ASK 

#240 ,ASK sSTRIP PARITY AND LOWER CASE. 
> aces ;DID HE ANSWER YES? 

ASK ,A4'N 

1$ 

ASK 

2$ 

,67$ sz TYPE ASCIZ STRING 


66$ 3:GET OVER THE ASCIZ 
<200>4PANEL: ST1 AND ST2 POTS OUT AND TURN CCW 


69S :i TYPE ASCIZ STRING 
68$ “GET OVER THE ASCIZ 
<200>ADWARF: S2=7 AND S2-8 ON, ALL OTHERS OFF# 


;CLEAR CSR 


CLR @ASR 
JSR PC.ANY2 
CLR @ASR 
5120 JSR PC,ANYKEY 
165614 001126 MOV tte sREAD CSR 


000000 001124 #0 ,$GD 
102000 001126 miTis!B11I0, - SBDDAT DID ANY FLAG SET? 


$11 OR ST2 THRESHOLD Level ERROR 
[FLAGS SHOULD NOT HAVE SET 


SEQ 0077 
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171 *ST1,ST2 THRESHOLD TEST #2,POTS CW 


5 RARER ARAEREARERERREREERERAARREREEREREEE EER ERRRRERREERERERER REE 


S*TEST 71 *ST1,S72 THRESHOLD TEST #2,POTS CW 


5 RARER AAA RAERARARAAERERERERR RARER REE EERE AEERAREER RRR REREEE RRR EEE 


TST71: SCOPE 
MOV 


#1$,$LPERR 
MOV #1$,$LPADR 
TYPE ,65$ i: TYPE ASCIZ STRING 
BR 5 [GET OVER THE ASCIZ 
i958: -ASCIZ <200>#PANEL: TURN BOTH POTS CWA 
1$: CLR @ASR 
JSR PC.ANY2 
CLR @ASR 
JSR PC ~ANYKEY 
MOV SR,SBDDA 
BIT w1ris'BIT10, SBDDAT ;DID ANY FLAG SET? 
BEQ TST72 $3 
ERROR 2 ;ST1 OR ST2 THRESHOLD ERROR. 
| ne pera tae eee ema ER EE eI Hate") es 
TRIEST 72 *ST1,ST2 THRESHOLD 1EST #3 MID RANGE 
 RaRERRRERERRRERRERARRERRERRRRRERERRRRRRERERERRERRRRER ERR RRR ER 
18172: SCOPE 


MOV #1$,$LPERR 
MOV #1$.$LPADR 
TYPE ,65$ i: TYPE ASCIZ STRING 
BR 64$ T OVER THE ASCIZ 
jj $58: “ASCI2Z <200>#PANEL: SET’ ST1 AND ST2 POTS TO MID-RANGE.# 


R aASR 
JSR PC,ANYKEY 
SR, $BDDA 
Vv wir i3 ‘01110, —— 
BIC #075777 , SBDDA 
CMP scope. "$BDDAT 


ERROR 2 7ST1 OR ST2 FAILED TO SET. 


z;AT MID RANGE THEY BOTH SHOLD SET. 


SEQ 0078 


8 
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FRERRRRARRRRRERRRERERREREERERERERRERRRRREREREREREREREERERERERRREEEEE 
TSTEST 73 sTEST CLOCK REPEATABILITY IF ON TESTOR 
RARER AEAEARARAREREKAARAREEREARARAREEAEEAEREARERAAREREEEEREE 
18173: 
000010 MO #10, $TIMES ::D0 10 ITERATIONS 
001476 DWARF : TESTOR MODE ENABLED?? 
10$ ‘BR IF YES 
014512 ENDP ‘NO REPORT END PASS. 
: #1$,$LPERR 
#1$.$LPADR 
,65$ zi: TYPE ASCIZ STRING 
64$ +:GET OVER THE ASCIZ 
<200>#PANEL: ST1 POT OUT AND Cw 


.678 oo ASCIZ STRING 
014224 000423 BR 66$ GET OVER THE ASCIZ 
014276 :3 : .ASCIZ <200>4 ST2° POT IN AND SLOPE OUT (-)4 


014274 : TYPE ,69$ is TYPE ASCIZ STRING 
014300 000423 BR 68$ 7GET OVER THE ASCIZ 
hanes : .ASCIZ <200>#DWARF: S2 ALL SWITCHES OFF, S2-6 CMM 


JSR PC,ANY2 
165036 : MOV ro NG @ASR ;SET 1MHZ, cre -ST2 GO ENABLE. TEST CLOCK 


CLEAR STATUS 
165050 #100000, aTSCLD 
165040 #13,aTSCLC E 1,60 
aTSCLc WAIT FOR CLOCK OVERFLOW. 


BPL 2s 
165002 #81T15,@ASR 
000200 165016 #200,aTSCLC :CLEAR OVERFLOW FLAG. 
165012 : . [WAIT FOR NEXT OVERFLOW. 


164762 aASR :STOP CLOCK. 
165000 aTScLc 

164754 @ABR, $BDDAT ;READ RESULTS 
100000 #100000,$GDDAT :S/B COUNT 
001124 $GDDAT,RO 

001126 SBDDAT RO 


;+DIF 
RO SOTHERWIZE MAKE IT 
000007 : RO,47 ;SHOULD NOT VARY MORE THAN 7 COUNTS. 
014476 TST74 ae 


014500 10 ;CLOCK REPEATABLITY ERROR. 








2 
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DEERE EESTI IIE III ICICI 
T*TEST 74 END OF TESTS 
SRRRRRRRREREEERERERE REE ERERE RARER AREER REE Reet 
014502 000004 18174: SCOPE 
014504 012737 MOV #1 ,STIMES O 1 ITERATION 
; WE* LL FIND OUT IF THERE’ “ARE OTHER CLOCKS OUT THERE TO TEST. 


014512 ENDP: 
014512 000005 
014514 052777 000100 BIS #81T6,a$TKS ENABLE TKB INTR. 


014522 001476 or ‘OR TF ee INDICATOR 
001202 $SPASS bag IF FIRST PASS 
$ BR IF NOT 


BNE 
023056 PRIMEO ;TELL OPER. TO RESET POTS/SWITCHES 
015166 PC ,ANY2 [WAIT FOR ANY CHAR 
: SUNIT [UPDATE # OF UNITS COUNTER 
001460 SUNIT,EVER sFIND IF DONE 
SEOP ;;BR IF FINISHED 
001420 VADDR ASR ;UPDATE THE ADDRESSES 
001424 VVECTR,VECT1 ;UPDATE THE VECTOR 
PCF IXADR 3FIX_THE OTHER aaa AND ADDR. 
INIT THE TEST 
014606 006337 ROTATE > init INDICATOR 
014612 SAND RUN THAT UNIT 


-SBTTL END OF PASS ROUTINE 


RIAA IASI IOIOIIOIIIIOIIIOIIIIIIOIIOIIIOIIIOI UII IOI RR i ith 
"INCREMENT THE PASS NUMBER (S$PASS) 
*TYPE ‘END PASS AXXXXX'’ (WHERE XXXXX IS A DECIMAL NUMBER) 
:*IF THERES A MONITOR GO TO IT 
:*IF THERE ISN'T JUMP TO EXTMSG 


014616 SEOP: 


33ZERO THE TEST NUMBER 
2 ZERO THE NUMBER OF ITERATIONS 
SPASS 33 INCREMENT THE PASS NUMBER 
001202 oe ::DON"T ALLOW A NEG. NUMBER 
+ i 


SDOAGN ssYes 
pele anne : RESTORE COUNTER 


014723 TYPE SENDMG sTYPE “END PASS #' 
001202 MOV $PASS,-(SP) :7SAVE SPASS FOR TYPEOUT 
TYPE=-DECIMAL ASCII WITH SIGN 

014720 NULL ify YPE A NULL CHARACTER 
000042 $GET42: MOV 3IGET MONITOR ADDRESS 

$DOAGN ‘BRANCH IF NO MONITOR 

73 CLEAR THE WORLD 
SENDAD : 


) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 


2 
qd 
(2 
6 
qd 
q 
(1 
(1 
(1 
(2 
(1 
1 
(1 
1 
(1 
(1 
(1 
qd 
(1 
(1 
(1 
(2 
(2 
1 
(1 
(1 
(1 
(1 
qd 
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014710 000240 
000240 


000137 
014740 
377 


015 
050040 
000043 


ee ee te ese ae 


052777 
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18: 03 


377 
042412 
051501 


000100 
001112 


024027 
001112 


000001 


024056 
001452 


014720 


023753 


177776 
023713 
001244 


023753 


177776 
003002 
002270 


MACY11 Mt 23-0CT 
F PASS ROUTIN 


SDOAGN: 


SRTNAD: . 
SENULL : 
SENDMG: 


EXTMSG: 


1$: 


8 7 
rs 11:08 PAGE 110-1 
s3FOR 
33ACT11 
a(PC)+ 7 RETURN 


EXTMSG 
-1,-1,0 s;NULL CHARACTER STRING 
<15><12>/END PASS #/ 


ENABLE TKB INTR. 


#8116,a$TKS 
SERTTL TEST IF ANY ERRORS 
;BR IF NONE 


-ERRTOT 
SERTTL,~(SP) 
#1 ,MASKNM ae IF ADDITIONAL UNITS 
1$ F NOT 


ME SGD "INFORM OPER. OF BAD UNITS 
BADUNT , = (SP) 
TYPE BIN 


N MAP 
SENULL ENSURE ALL_TEXT GOT TYPED 
97 T pases TEST FOR CTRL C/G 


; SUBROUTINE TO CHANGE BASE OR VECTOR ADDRESS 


BASEXC: TYPE, 
MOV 


ADROUT TYPE OUT STARTING 
SBASE ,-(SP) 3GET CURRENT DEFAULT 


ENDOUT 

(SP) + 

wo , SBASE 
SVECT1,-(SP) 
ENDOUT 

(SP)+ 

2s 

- AF + ea 

C ,PRIADR 3PR 
MTEST1 sRETYPE DOT 


INPUT 
: TYPE OUT STARTING VECTOR 
:GET CURRENT DEFAULT 


SEQ 0081 
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s THIS ROUTINE TYPES LAST MESSAGE AND WAITS FOR AN OPERATOR 


015120 105777 164022 : TSTB a$TKB CLEAR TTY READY FLAG. 
104401 015132 TYPE ,65$ 


000416 BR 64$ 
«ASCIZ <200><7>#DWARF : SWITCH S1 3 TIMES# 


015174 ,658 TYPE ASCIZ STRING 
015172 wR 648 S3GET OVER THE ASCIZ 
te 658: <200><7>#DEPRESS 'RETURN'' KEY WHEN DONE...4<7> 


(SP) 3GET ‘RETURN’ 
+ 


015254 ,67$ sz TYPE ASCIZ STRING 
015252 BR 66$ 7iGET OVER THE ASCIZ 
: : <200>44 
015256 


015256 


CTRLCG: RTS 
163656 TSTB a$TKS TEST IF INPUT 
2$ ;BR IF NONE 


163652 015336 a$TKB,CTRCHA eR CHAR. 
177640 015336 m177640, yee sMASK OFF BITS 
000003 015336 + a TEST FOR CTRL C 
BNE 7;BR_IF NOT 
(SP)4 CLEAN STACK 
002270 MTEST1 RETYPE DOT 
000007 015336 1$: #7,CTRCHA :TEST FOR CTRL G 
BNE 2$ F NOT 


;BR IF NO 
;GET NEW SWITCHS 
23: S C EX IT 
CTRCHA: ; CHAR. THE OPER TYPED DURING RUNNING 


S PC 
; SUBROUTINE TO ng CTRL C/G 
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- SBTTL 
-SBTTL *SYSMAC ROUTINES 
SBTTL 


-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


DBASE EIDE ISIS ISIE III IIIIDIOOIIIIUIOIIIINIIOIOIIOIIIOUIII 

SRTHIS ROUTINE IS USED TO oC A 16-BIT BINARY NUMBER TO A 6-DIGIT 
:*OCTAL (ASCII) NUMBER AND TYPE IT 

; sSTYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


7 *CALL 
; MOV NUM ,- (SP) ; NUMBER TO BE TYPED 
TYPOS ::CALL FOR TYPEOUT 
-BYTE N :z;N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
-BYTE ™ :zM=1 OR O 
321=TYPE LEADING ZEROS 
;,0=SUPPRESS LEADING ZEROS 


* #$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
+ *$TYPOS OR $TYPOC 

:*CALL: 

;* MOV NUM ,-(SP) 7 NUMBER TO BE TYPED 

3* TYPON ;;CALL FOR TYPEOUT 


+ 
a HERE FOR TYPEOUT OF A 16 BIT NUMBER 


NUM ,-(SP) ; NUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 


: a(SP) ,-(SP) + ¢PICKUP THE MODE 
015563 MO 1(SP) , SOF ILL sel LOAD ZERO FILL SWITCH 
(SP)+,$OMODE+1 ;:NUMBER OF DIGITS TO TYPE 
a 7 ;ADJUST RETURN ADDRESS 
$TYPON 


BR 
015563 : #1,S0F ILL 77SET THE ZERO FILL SWITCH 
015565 MO #6, SOMODE +1 7zSET FOR SIX(6) DIGITS 
015562 : 37SET THE ITERATION COUNT 
MO 7 SAVE R3 
z3 E R4 
: SAVE RS 
7:GET THE NUMBER OF DIGITS TO TYPE 


fi i IT FOR MAX. ALLOWED 
see IT FOR U 

SOF ILL .R4 ET THE ZERO FILL SWITCH 

ig (SP). RS 33 UP_THE INPUT NUMBER 


T, WORD 
ROTATE MSB INTO *'C’’ 
::GO DO MSB 
73FORM THIS DIGIT 


015460 006103 : R GET LSB OF THIS DIGIT 
015462 105337 TYPE THIS DIGIT? 


1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
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( 
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( 
( 
( 
( 
( 
( 
( 
( 
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( 
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( 
( 
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( 
( 
( 
< 
( 
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— 
~— 


7$ ;;BR_IF NO 
177770 ta ees i3GET RID OF JUNK 


FOR 0 
#i SUPPRESS THIS 0? 


ie Y 
;DON'T SUPPRESS ANYMORE 0°S 
3 3MAKE THIS DIGIT ASCII 
E ASCII IF NOT ALREADY 
3SAVE FOR TYPING 
,8$ 3:GO TYPE THIS DIGIT 
015562 : 3:COUNT BY 1 
T 2s :3BR i MORE TO DO 


I 
3+ INSURE LAST DIGIT ISN'T A BLANK 
O THE LAST DIGIT 
TORE R5 


R3 
32SET THE STACK FOR RETURNING 
(SP) +, (SP) 


8$: 


0 
0 
SOCNT: YTE QO , 
SOF ILL: “BYTE 23 ZERO FILL SWITCH 
SOMODE: .WORD 0 SNUMBER OF DIGITS TO TYPE 
.SBTTL BINARY TO ASCII AND TYPE ROUT INE 


RETURN 
:} STORAGE FOR ASCII DIGIT 


RRR ARERR EEREEREEKEKEEEEREKEREREREKEKREREKRRREEKEKEKEEKEKKEEE 


[*THIS ROUTINE IS USED TO CHANGE A 16-B81T BINARY NUMBER TO A 16-BIT 
3 *BINARY~ASCII NUMBER AND TYPE IT. 


MOV NUMBER , - (SP) ; NUMBER TO BE TYPED 
YPBN scTYPE IT 


010146 : R1,~(SP) : SAVE R1 ON THE STACK 
MO THE R 


6(SP) ,R1 INPUT NUMBE 
:3SET "'C’’ SO CAN KEEP TRACK OF THe NUMBER OF BITS 
SET CHARACTER [0 AN ASCII ‘0"’. 
7:GET THIS BIT 
; DONE? 


TINO=-SET THE CHARACTER EQUAL TO THIS BIT 
3:GO TYPE THIS BIT 
3: CLEAR ‘'C’’ SO CAN KEEP TRACK OF BITS 
+260 DO THE NEXT BIT 

(SP)+,R ;POP THE STACK INTO R1 

2(SP) ,4(SP) ZZADJUST THE STACK 


(SP)+, (SP) 
;;RETURN TO USER 
$BIN:  . 0,0 ;:STORAGE FOR ASCII CHAR. AND TERMINATOR 


kk kk kc kk ak ik ea A) nk ad tk et tk tk od oh 2 ot 0 2 ot I 2 ot oo I tS SS SS 
ee et ated © bt te th iit titi ititirttttitttl 
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( 
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3 
( 
( 
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( 
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CVMNCB.P11 18-SEP-78 18:03 ONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0085 
7312 .SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
(2) FERRARA RRRERRREREREEREREREREEEREREERERRAREREREEEERRRRERRRERERER 
(1) *STHIS ROUTINE IS USED TO CHANGE A 16-B1T BINARY NUMBER TO A 5-DIGIT 
(1) ‘®SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
(1) ‘*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
(1) ‘BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
(1) ; #REPLACED WITH SPACES. 
“* 3 
(1) 3* MOV NUM ,-(SP) ;ZzPUT THE BINARY NUMBER ON THE STACK 
1 yt TYPDS ::G0 TO THE ROUTINE 
(1) 015642 S$TYPDS: 
(3) 015642 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
(3) 015644 010146 MOV R1,-(SP) + PUSH R1 ON STACK 
(3) 01 010246 MOV R2,-(SP) +:PUSH R2 ON STACK 
(3) 015650 010346 MOV R3.~(SP) *: R3 ON STACK 
(3) 015652 010546 MOV RS. -( +:PUSH R5 ON STACK 
(1) 015654 012746 020200 MOV #26200. 2 sp) +:SET BLANK SWITCH AND SIGN 
(1) 000020 MOV 20(SP *RS *:GET THE INPUT NUMBER 
(1) 015664 BPL +:BR IF INPUT I : 
(1) 015666 005405 NEG RS + >MAKE THE BINARY NUMBER POS. 
(1) 015670 112766 000055 000001 MOVB #*=,1(SP) [MAKE THE ASCII NUMBER NEG. 
(1) 015676 005000 1$: CLR RO +:ZERO THE CONSTANTS INDEX 
(1) 015700 012703 016056 MOV #SDBLK ,R3 ::SETUP THE OUTPUT POINTER 
(1) 015704 112723 000040 MOVB = #": ~, (R3)+ + SET THE FIRST CHARACTER TO A BLANK 
(1) 015710 005002 2s: CLR R2 *:CLEAR THE BCD NUMBER 
(1) 015712 016001 016046 MOV $DTBL(RO).R1 ::GET THE CONSTANT 
(1) 015716 160105 3$: SUB R1,R5 *:FORM THIS BCD DIGIT 
(1) 015720 002402 BLT 4$ +:BR IF DONE 
(1) 015722 005202 INC R2 +: INCREASE THE BCD DIGIT BY 1 
(1) 015724 000774 BR 3$ 
(1) 015726 060105 4$: ADD R1,R5 ::ADD BACK THE CONSTANT 
<1) 015730 005702 TST R2 *:CHECK IF BCD DIGIT=0 
(1) 015732 001002 BNE 5$ +:FALL THROUGH IF 0 
(1) 015734 105716 TSTB = (SP?) t:STILL DOING LEADING 0°S? 
(1) 015736 100407 BMI 7$ ::BR IF YES 
(1) 015740 106316 5$: ASLB (SP) MSD? 
(1) 015742 103003 BCC 6$ ::BR IF NO 
(1) 015744 116663 000001 177777 MOVB  1(SP),-1(R3) =: YES==SET THE SIGN 
(1) 015752 052702 000060 6$: BIS #'°0,R2 + >MAKE THE BCD DIGIT ASCII 
(1) 015756 052702 000040 7$: BIS #* UR2 : MAKE IT A SPACE IF NOT ALREADY A DIGIT 
(1) 015762 110223 MOVB _—R2,, (R3) + *:PUT THIS CHARACTER IN THE OUTPUT BUFFER 
(1) 015764 0057. TST (RO) + +:JUST INCREMENT ING 
(1) 015766 020027 000010 CMP RO,#10 i 3 CHECK K THE TABLE INDEX 
(1) 015772 002746 BLT 2$ GO DO THE NEXT DIGIT 
(1) 015774 003002 BGT 8$ +:GO TO EXIT 
(1) 015776 010502 MOV R5S,R2 :3GET THE LSD 
(1) 016000 000764 BR 6$ *GO CHANGE TO ASCII 
(1) 016002 105726 8$: TSTB = (SP) + 7 WAS THE LSD THE FIRST NON-ZERO? 
(1) 016004 100003 BPL 9$ [BR IF NO 
(1) 016006 116663 177777 177776 MOVB  <-1(SP),-2(R3)  ::YES=-SET THE SIGN FOR TYPING 
(1) 016014 105013 9$: CLRB —_ (R33) +:SET THE TERMINATOR 
(3) 016016 012605 MOV (SP) +,R5 +:POP STACK INTO R5 
(3) 016020 012603 MOV (SP) +.R3 +:POP STACK INTO R3 
(3) 016022 012602 MOV (SP) +.R2 +:POP STACK INTO R2 
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(SP)+,R1 ::POP STACK INTO R1 
MO (SP) +.RO 3 sPOP STACK INTO RO 

0146056 $DBLK ‘NOW TYPE THE NUMBER 
000002 000004 3(SP) ,4(SP) ‘ADJUST THE STACK 


(SP) +, (SP) 
7 RETURN TO USER 
$DTBL: 


10. 
SDBLK: .BLKW 
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-SBTTL ERROR HANDLER ROUTINE 


DERE EIR IOIISIIOIIIIIIIIIO IOI IIIIIIO IUD UDR Rit ttt tit 
SRTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
 *SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
;*AND GO TO SERRTYP ON ERROR 

gor SWITCH OPTIONS a hia BY THIS ROUTINE ARE: 


HALT ON 
2 *SW13=1 INHIBIT ERROR TYPEOUTS 
*SW10=1 BELL ON ERROR 

re LOOP ON ERROR 

*® a 

:* N ;ERROR=EMT AND N=ERROR ITEM NUMBER 


SERROR: 
C 


BBL LE LE LLL LK 
a a ed od od wd od 
eee ee ee ele ee ee 


TEST FOR CHANGE IN SOFT=SWR 
PC,CTRLCG TEST FOR CTRL C/G 
S 7 SET "s FAILING UNIT 


E 
000000 MOV PRIME THE UNIT # 
016132 : 11$ SHIFT LEFT 
BR IF FINISHED 
001504 [UPDATE BAD UNIT VALUE 
:BR AGAIN 


SERFLG 23SET THE ERROR FLAG 

7$ :DON'T LET THE FLAG GO TO ZERO 
162770 $TSTNM,@DISPLAY : :DISPLAY TEST NUMBER AND ERROR FLAG 
162760 * eilheaaeenaan ERROR? 


OF ERRORS 
SIGET PT ADDRESS OF ERROR INSTRUCTION 


2éSTRIP AND SAVE THE ERROR ITEM CODE 
162720 #B1T13,aSwWR SET 


20: 
016322 PC,SERRTYP 33 : 360 TO USER ERROR ROUT INE 
001171 -SCRLF 


000001 001214 WAPTENV , SENV 2 7 RUNNING IN APT MODE 

BNE 2s 3zNO,SKIP APT ERROR REPORT 
001114 016254 SITEMB, “'® SET ITEM NUMBER AS — Dates 
020710 aC -SATY REPORT FATAL ERROR T 


‘ 0 
: BR 22$ + APT ERROR LOOP 
162654 2s: aSwWR HALT ON ERROR 
3$ :3 SKIP IF CONT INUE 
T ON ERROR! 


7 HAL 
33 TEST FOR CHANGE IN SOF T~SWR 
001000 : sacres 2am ;LOOP yee SWITCH SET? 


$ 7 IBR F 
001110 SLPERR, (SP) ; FUDGE RETURN FOR LOOPING 
001162 : SESCAPE : CHECK FOR AN ESCAPE ADDRESS 


ee Ne a Ne Ne Ne es ee ee ee ee ee es a ee ee ee a ee ee ae eee a 


( 
( 
( 
( 
( 
c 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
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016312 001402 BEQ 5$ ;;BR_IF NONE 
green 013716 001162 5 MOV SESCAPC , (SP) 3;FUDGE RETURN ADDRESS FOR ESCAPE 


016320 000002 RTI 3 RETURN 
-SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


[RARER ARERR RARE ARERR ERR ERE ERE EERE 

‘RTHIS ROUTINE USES THE ‘ITEM CONTROL BYTE’’ (SITEMB) TO DETERMINE WHICH 
:*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘ERROR TABLE'’ (S$ERRTB), 
*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


016322 SERRTYP: 
Gate TYPE . SCRLF z2"CARRIAGE RETURN’’ & "LINE FEED*’ 


RO,-(SP) 77SAVE R 
005000 R :zPICKUP THE ITEM INDEX 
153700 a4$1TEMB,RO 
001004 1$ 3c1F ITEM NUMBER IS ZERO, JUST 
22 TYPE THE PC OF THE ERROR 
013746 SERRPC , = (SP) SAVE SERRPC FOR TYPEOUT 
TERROR ADDRESS 
104402 +260 TYPE=-OCTAL ASCII(ALL DIGITS) 
000445 BR T 


GET OU 
3 TADJUST THE INDEX SO THAT IT WILL 
ee WORK FOR THE ERROR TABLE 


RO 
001256 ADD P 33FORM TABLE POINTER 
016374 items 33PICKUP ‘ERROR MESSAGE’* POINTER 


23 SKIP TYPEOUT IF NO POINTER 
PE THE ‘ERROR MESSAGE"’ 
0 ; te A POINTER GOES HERE 
-SCRLF ; RETURN’’ & "LINE FEED"’ 
ali :EpIcKUP. DATA E bes POINTER 


0 

SCRLF 
R1,-(SP) 
(RO)+,R1 


(RO)+,RO 
(RO) + : 
ter IF DECIMAL 


7$ 
a(R1)+,-(SP) cia a(R1)+ FOR TYPEOU 
8s TYPE=-OCTAL ASCIICALL DIGITS) 


@(R1)+,-(SP) 2 SAVE a(R1)+ FOR TYPEOUT 
:GO TYPE--DECIMAL ASCII ae SIGN 
i 3318 aye ANOTHER NUMBER? 


:BR IF 
,118 SI TYPE 10(2) SPACES 
6$ ooP 


AAA RRA RAA 
— a NN ot os 
ee ee ee ee ee 


(SP)+,R1 7 RESTORE R1 
(SP)+,RO 7 RESTORE RO 
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016464 104401 001171 TYPE ,SCRLF ze"'CARRIAGE RETURN’' & "LINE FEED"’ 
70 000207 RTS PC 3 sRETURN 
020040 000 118: ASCIZ / / 33TWO(2) SPACES 
016476 -EVEN 
-SBTTL SCOPE HANDLER ROUTINE 


DRESSES IIUIIOUI IIR IRE 
;ATHIS noe | CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
[*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
; *THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

LOOP ON TEST 

INHIBIT ITERATIONS 

LOOP ON ERROR 

LOOP ON TEST IN SWR<7:0> 


3; SCOPE=IOT 


sTEST FOR CHANGE IN SOFT-SWR 
PC,CTRLCG “TEST FOR CTRL C/G 
016 162426 18: #81714, aSWR ;3LOOP ON PRESENT TEST? 
016512 BNE SOVER “YES IF SW14=1 
;AAHRASTART OF CODE FOR THE XOR TESTERMAAHA 
016514 $XTSTR: BR 6$ s31F RUNNING ON THE Ry a? TESTER CHANGE 
3: THIS INSTRUCTION TO A ‘NOP*’ (NOP=240) 
016516 000004 MOV @VERRVEC,~(SP) 3:SAVE THE CONTENTS OF THE ERROR VECTOR 
#5$, AFERRVEC : TIMEOUT 
a#177060 
(SP) +, a#ERRVEC 


SSVLAD TEST 
5$: (SP)+, (SP)+ 2: CLEAR THE STACK AFTER A TIME OUT 
(SP) +, @#ERRVEC hy TORE THE ERROR VECTOR 
BR 7$ ON THE PRESENT TEST 
6$:;4HAAMEND OF CODE FOR THE XOR™ iESTEREMARE 
162360 BIT > hea aSwWR $3500 ON SPEC. TEST? 


:BR IF 
001102 a 330N ion wet RIGHT TEST? SWR<7 :0> 
SERFLG 2 ZHAS AN ERROR OCCURRED? 
BE 3$ 4 NO 
001103 SERMAX,, SERFLG ee FOR THIS TEST OCCURRED? 


BH 
162322 ry T09,,aSwR 
001106 : SLPERR,SLPADR 
SOVER 
SERFLG 33 FLAG 
STIMES F HE NUMBER OF ITERATIONS TO MAKE 
1$ APE TO THE NEXT TEST 
Siri) Am TINMIBIT ITERATIONS? 


$PASS 
1$ 


Fe he ee ee ee a a et 


1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
2) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
< 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


005237 SICNT 
023737 STIMES,SICNT 
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001115 
162170 SOVER: 


RTI 
SMXCNT: 2000. 


SOVER 

#1,$1CNT 

SMXCNT ,STIMES 
TSTNM 

ae ee 


(SP) ,SLPAD 
(SP) ,SLPERR 
SESCAPE 


#1, SERMAX 
STSTNM,@D1SPLAY 
SLPADR, (SP) 


M 7 
11:08 PAGE 114-3 


:BR IF TERATION REQUIRED 
3 TREINIT] THE ITERATION COUNTER 
; ERATIONS TO DO 


RS 
SISET TEST NUMBER IN APT MAILBOX 
33SAVE SCOPE LOOP ADDRESS 
3;SAVE ERROR LOOP ADDRESS 
oe THE ESCAPE FROM ERROR ADDRESS 
Y ALLOW ONE(1) ERROR ON NEXT TEST 

; :DISPLAY TEST NUMBER 

FUDGE RETURN ADDRESS 
TIFIXES PS 
;;MAX. NUMBER OF ITERATIONS 
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-SBTTL TTY INPUT ROUTINE 


PY RRA REE EERE EEE 


-ENABL LSB 
000000 : 3 NUMBER OF ITEMS IN QUEUE 
000000 : ; INTER 
000000 ; 
000040 3 SITY KEYBOARD QUEUE 
017030 STKQEND=. 


3*TK INITIALIZE ROUTINE 
[*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
; *SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


CALL: 

:* J PC,STKINT 

-* 

016762 STKINT: STKCNT ;;CLEAR COUNT OF ITEMS IN QUEUE 
MO WSTKQSRT,STKQIN ::MOVE THE STARTING ADDRESS OF THE 
STKQIN,STKQOUT ;;:QUEUE INTO THE INPUT & ee POINTERS. 
MSTKSRV ,@ATKVEC 2 INITIALIZE THE KEYBOARD VECTOR 
#200 ,a@#TKVEC+2 * LEVEL 4 
3=CLEAR_ DONE 


a$TKB FLAG 
#100, a$TKS 7 ;ENABLE TTY KEYBOARD INTERRUPT 
PC ;sRETURN TO CALLER 


CE ee et ee ee ee 


:*TK SERVICE ROUTINE 
; THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 
ING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 


3 THE QUEUE. 
:*IF THE CHARACTER IS A "*CONTROL=C** (*C) STKINT IS CALLED AND 
; *UPON RETURN EXIT IS MADE TO THE ‘‘CONTROL-C** RESTART ADDRESS (MTEST1) 


117746 162042 : a$TKB,-(SP) ::PICKUP THE CHARACTER 
2716 177600 BIC ae ciF? (SP) ::STRIP THE JUNK 
000003 (SP) #3 31S IT iA GONTROL c? 


BNE $ F NO 
020244 eSCNTLC SI TYPE A CONTROL-C (“C) 
017030 1 re EYBOARD 


SP) + 
002270 MTEST1 
000007 : (SP) ,A7 
BNE 33 (CH IF NO 
000176 001140 ASWREG , SWR :z1S SOFT-SWR SELECTED? 
6$ ::G0 TO SWR CHANGE 
23: 
000040 016762 + i eaaameaed 2i1$ THE QUEUE FULL? 


BNE CH IF _NO 
001164 TZRING THE TTY BELL 
( arg CHARACTER OFF OF STACK 


BR 5$ sEXIT 
000023 : 3318 IT A_CONTROL~S? 
BNE 32$ BRANCH IF NO 
161740 7:DISABLE TTY KEYBOARD INTERRUPTS 


1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
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(1) 
(1) 


“~~ 
— 
— 


NS ss SS oh ho ot 


ee Ne a ee es es a ee es a a ee ee ee ee ee ee ee ae ae ee a ela ee ee ee SS eS ee ee eS Ye SY Swe 
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( 
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( 
( 
( 
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c 
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( 
( 
( 
( 
( 
( 
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( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


— AA) 2 ts J SS SS SS OS SS So SS 


017314 


017316 


017350 


017352 
017360 
017362 
017364 
017370 
017374 


017402 
017406 


DIAGNOSTIC 


022737 
001124 


123727 
001674 
005726 
004737 
005077 
112737 


5046 
105777 


18-SEP-78 18:03 


161732 
161726 
177600 
000021 
000100 
016762 
000140 


016770 


000176 
161612 
161606 


177600 
000067 


001134 


017030 
161550 
000001 
020256 
020265 
000176 
020274 


161510 


MACY11 30A(1052) 
TTY INPUT 


017030 
016764 


001140 


T (SP) + 
31$: re 
BP 31$ 

a$TKB,-(SP) 
#°C177, (SP) 
(SP)+,421 
31$ 
#100, a$TKS 


STKCNT 
(SP) ,4140 


(SP) ,#175 
4$ 

#40, (SP) 
(SP) -@$TKQIN 
STKQIN, ASTKQEND 


5 
$$ #STKQSRT ,STKQIN 


8 8 
23-OCT-78 11:08 PAGE 115-1 
ROUT INE 


hey CHAR OFF STACK 
:zWAIT FOR A 
¢show UNTIL ITS THERE 
T THE CHARACTER 
E IT 7-BI1T ASCII 
HIS IT A CONTROL-Q? 


CH IF NO 
; /REENABLE TTY KEYBOARD INTERRUPTS 


RETURN 
2: COUNT THIS CHARACTER 
S IT UPPER CASE? 


BRANCH IF YES 
3218 IT A SPECIAL CHAR? 
CH_IF YES 
TZMAKE IT UPPER CASE 
3 AND PUT _IT IN QUEUE 
UPDATE THE = 
$360 Ad THE END 


; sBRANCH_IF NO 
i RESET THE POINTER 


IAAI IIIS III IIIS III IOIUIITIOI IOI TOOT OTTO 
*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
[*ROUTINE IS ENTERED FROM THE TRAP HANDL 


;*SERVICE THE TEST FOR CHANGE IN 
$CKSWR 


15$ 

a$TKS 

15$ 

a$TKB,-(SP) 

wci7? (SP) 
(SP) #7 

2$ 


> *CALL “— OPERATING IN TTY ef 
MP ASWREG , SWR 


ER, AND WILL 
SOFTWARE. SWITCH REGISTER TRAP 
S THE SOFT-SWR SELECTED 
T NOT 


IF 
S A_CHAR WAITING? 
THF NOT, EXIT 


ae S 
MAKE IT 7-BIT ASCII 
18 IT A CONTROL-G? 
So exit PUT IT IN THE TTY QUEUE 


FARRER RARERERERRERREREERERREERERERERERREEREERERERREREEEERERREER 


 RCONTROL IS PASSED TO THIS POINT FROM EITHER yb TTY INTERRUPT SERVICE 
:*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A 


;*CONTROL-G BEING TYPED, AND THE SO 
6$: CMPB SAUT 1 


(SP)+ 

PC, $TKINT 
a$Tks 
#1,$INTAG 
.SCNTLG 
SWREG, -(SP) 
 SMNEW 
=(SP) 


~(SP) 
a$TKS 


F TWARE SuITCH REGISTER BEING SELECTED. 
WE RUNNING IN AUTO-MODE? 


; sARE 

3 BRANCH IF YES 

CLEAR CONTROL-G OFF STACK 

3 FLUSH THE TTY INPUY QUEUE 
DISABLE TTY KEYBOARD INTERRUPTS 

7:SET INTERRUPT MODE INDICATOR 


77ECHO THE CONTROL-G (“*G) 
3: TYPE CURRENT CONTENTS 
VE SWREG FOR TYPEOUT 
360 TYPE=-OC TAL + eaten DIGITS) 
PROMPT FOR NEW 
ti CLEAR COUNTER 
77 THE NEW SWR 
77 CHAR THERE? 
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017434 100375 7$ 331F NOT TRY AGAIN 


017436 117746 161504 @$TKB,-(SP) ::PICK UP CHAR 
017442 042716 177600 #°0177, (SP) 33MAKE IT 7-BIT ASCII 


017446 021627 000003 (SP) ,A3 31S _ IT A_CONTROL-C? 
, 001015 BNE 9$ 3 ;BRANCH IF NOT 
104401 020244 -SCNTLC 3zYES, ECHO CONTROL-C (“C) 
062706 000006 ADD P Z:CLEAN UP STACK 
AS aSs 001135 000001 ee UNC IE TTY KEYBOARD INTERRUPTS? 


000100 161442 #100, a$TKS S;ALLOW TTY KEYBOARD INTERRUPTS 
002270 8$: MTEST1 32CONTROL-C RESTART 


000025 : 13s 23S IT A_CONTROL=-U? 


BNE CH IF NOT 
020251 ss YES, ECHO CONTROL-U (“*U) 
000006 #6,SP GNORE PREVIOUS INPUT 
S:LET'S TRY IT AGAIN 


e3IS IT A <CR>? 


;BRANCH IF NO 
scYES, IS IT THE FIRST CHAR? 
CH IF YES 
161370 


: ,SCRLF 
000001 MPB oo ; ;sRE-ENABL iy KBD INTERRUPTS? 
161346 , #100,a$TKS 13 TTY KBD INTERRUPTS 


PC ,STYPEC 
(SP) ,#60 


a ae 
#60, (SP)+ 
2(SP) 


F YES 
? 
F YES 


000002 2(SP) 
177776 =2SP), (SP) 


BR ee 
001170 18$: aes sz TYPE ?<CR><LF> 
BR 30$ +:SIMULATE CONTROL-U 
.DSABL LSB 


RQ 2 2 Ss Ss ss Ss ss Ss Ss Ss 3 3 3 2 SS SS SS SS 
eh eh a a te ee ee eee 


LARA EEE RE RERERERRERERER EERE ERERERERERREEREREEE 


:ATHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
ie -RDCHR GET A CHARACTER FROM THE QUEUE 
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RETURN HERE 3; CHARACTER IS ON THE STACK 
;;WITH PARITY BIT STRIPPED OFF 


: (SP) ,=(SP) tise gh ~— THE PC AND 
000004 MOV 4(SP) ,2(SP) 33 THE P. 
000004 et SP) 4 READY FOR A_CHARACTER 
SP) T NEW PS ON STACK 
017704 MOV 7O8.~(SP) 7ZPUT NEW PC ON STACK 
3;POP NEW PC AND PS 


016762 : ow y;WAIT ON A CHARACTER 


016762 STKCNT 3;sDECREMENT THE COUNTER 
177 000004 @$TKQOUT ,4(SP) 23GET ONE CHARACTER 
$TKQOUT ;;UPDATE THE POINTER 
017030 _— ,WSTKQEND gDID IT GO OFF OF THE END? 


2 ; sBRANCH IF NO 
016770 016766 WSTKQSRT ,STKQOUT ;;RESET THE POINTER 
017746 000002 2$: ; sRETURN 


6 
$3 RARER EEREKREKRERRRREERRRERERERREREEKEREEEREKREE 


Om ROUTINE WILL INPUT A STRING FROM THE TTY 
ge : 
hed RDLIN 3; INPUT A STRING FROM THE TTY 
“be RETURN HERE 3 ADDRESS OF FIRST CHARACTER a BE ON THE STACK 
;* 3; TERMINATOR WILL BE A BYTE OF ALL O'S 
017750 SRDLIN: R3,-(SP) sh a ® 
005046 C SP), ; 


020204 1$: wSTT N.R3 
020244 2s: MP ASTTVINGS2. R3 


R3 
AR THE — KEY 


:3BR IF YES 

;GO READ ONE CHARACTER FROM THE TTY 
MOVB (SP)+, (R3) CTER 
000177 10$: quire (R3) 


ry. IF NO 
(SP) 2718 ae THE FIRST RUBOUT? 


6 ae 
000134 020202 #'\ 9S 33TYPE A BACK SLASH 
020202 .9$ 
177777 MOV #~1, (SP) 23S SET THE RUBOUT KEY 
: R3 :BACKUP BY ONE 
020204 MP sata zESTACK E EMPTY? 


4 IF YES 
020202 MOVB e i} SETUP TO TYPEOUT THE DELETED CHAR. 
020202 9$ 3:G0 TYPE 
BR 32:G0 READ ANOTHER CHAR. 
; ;RUBOUT KEY SET? 


7 3;BR IF NO 
000134 020202 on 77 TYPE A BACK SLASH 


020202 
(SP) 7;CLEAR THE RUBOUT KEY 
000025 : a8 iiT CHARACTER A CTRL U? 


IF NO 
020251 7:TYPE A CONTROL ‘U" 
BR $ 3:GO START OVER 


1 
1 
1 
1 
1 
2 
2 
2 
2 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
4 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


ee a a ee a a ee et ae Oe te te 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
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sens 000022 8$: ege- (RS) ei at te A ‘*R'"? 


(R3) 
001171 $CRLF ee 
020204 STTYIN +: TYPE T STRING 
BR 2$ $360 PICKUP ANOTHER CHACTER 
001170 : ry , SQUES YPE A 


73 CLEAR THE BUFFER AND LOOP 
020202 : (R3) ,9$ 3;ECHO THE CHARACTER 


020202 : 
000015 —— 3 CHECK FOR RETURN 


177777 es 
001172 as A LINE FEED 
AN RUBOUT KEY FROM THE STACK 
iIREST ORE R3 

: ¢ADJUST THE STACK AND PUT ADDRESS OF THE 
4(SP) ,2(SP) ee FIRST ASCII CHARACTER ON IT 
#STTYIN,4(SP) 

3 RETURN 


9$: SE IMATOR ASCII CHAR. TO TYPE 


‘ RMINA 
STTYIN: 32. ; ;RESERVE 32, BYTES FOR TTY INPUT 
000 S$CNTLC: . /*C/<15><12> 33 TROL ‘‘C’’ 
000012 $CNTLU: /*U/<15><12> ¢ s CONTROL 
000 S$CNTLG: . /*G/<15><12> : CONTROL ‘''G’' 
051127 SMSWR: .ASC <15><12>/SWR = ' 4 


020127 SMNEW: . / NEW = 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


ee el ek ek ed ad ad ed od od = 2d 2 = 2 2) I I 
ee ee ee ea ee ae es ee ae ae le ae es eee 


-EVEN 
.SBTTL READ AN OCTAL NUMBER FROM THE TTY 


RIESE ISOS ISIS ISIISIDIIIIIDIOIIOIIIDIOIIDIOIIIIOIIDIOIIIOIOIIUIOITIIOIIIOIOIIOOIIOIOI 

tRTHIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 

i CHANGE IT TO BINARY. 

7*CALL: 

ied RDOCT 3;;READ AN OCTAL NUMBER 

7* RETURN HERE 3;LOW ORDER BITS ARE ON TOP OF Ps STACK 
s@ 3HIGH ORDER BITS ARE IN $HIOC 


$RDOCT: (SP) ,=(SP) ape of SPACE FOR THE 
MO 4(SP) ,2(SP) T NUMBER 
RO,-(SP) 7;PUSH RO ON STACK 
R1,~(SP) 33PUSH R1 ON STACK 
R2,~(SP) 3;PUSH R2 ON STACK 
3zREAD AN ASCIZ LINE 
(SP)+,RO 33;GET ADDRESS OF 1ST CHARACTER 
R1 3-CLEAR DATA WORD 


R2 
(RO) +,=(SP) 3;PICKUP THIS CHARACTER 
3$ 321F ZERO GET OUT 


:%2 


- 
ee 


3284 
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177770 


000012 
020406 


F 8 
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READ AN OCTAL NUMBER FROM THE TTY 


RTI 
$HIOCT: .WORD 


R1 


R2 
#*C7,(SP) 
_— 


2 
(SP) + 
R1,12(SP) 


0 


33*8 


STRIP THE ASCII JUNK 
;sADD_IN THIS DIGIT 


+ CLEAN TERMINATOR FROM STACK 
SAVE THE RESULT 


33POP STACK INTO R2 
33POP STACK INTO R1 
33POP STACK INTO RO 


ETURN 
;sHIGH ORDER BITS GO HERE 
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; CAUT ION THE FIRST 4 LOCATIONS ARE OVERLAYED TO LOWER CPU LEVEL 
THIS OVERLAY OCCURS AFTER ''SETUP 
“SBTTL TYPE ROUTINE 


{RRR RERRER RARER RARER ARE REAR RARER EERE ERE ARRRRER RARER RRR 

“ RROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 

[*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED 
:*NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
z*NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
:*NOTE 3: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


* 

7*CALL: 

:*1) USING A TRAP INSTRUCTION 

;* TYPE -MESADR :;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
TYPE 


ta a ae a te a el 
ed td od ot Ls 


105737 : STPFLG 31S os A TERMINAL? 
100002 BP 1$ 


:THALT. HERE IF NO TERMINAL 
; LEAVE 

+ SAVE RO 
2 32GET ADDRESS p 4 ASCIZ STRING 
#APTENV, SENV 7 RUNNING IN APT MODE 
62$ ‘ s3NO,GO CHECK FOR APT CONSOLE 
MAPTSPOOL ,SENVM ;;SPOOL MESSAGE TO APT 
62$ 3zNO,GO CHECK FOR CONSOLE 
RO,61$ + SETUP MESSAGE > FOR APT 
PC, SATYS E 


#APTCSUP , SENVM 

60$ SIYES, SKIP TYPE OUT 

(RO) +,-(SP) —_ CHARACTER TO BE TYPED ONTO STACK 
4$ BR IF IT ISN'T THE TERMINATOR 

(SP)+ THIF TERMINATOR POP IT OFF THE STACK 
(SP)+,RO i RESTORE RO 

#2, (SP) Ang oy RETURN PC 


T 
ae ; BRANCH IF <HT> 
une ; BRANCH IF NOT <CRLF> 


(SP)+ ;POP_ <CR><LF> aoe 
iI TYPE A CR AND L 


— 7;CLEAR CHARACTER COUNT 


2 

PC ,STYPEC ; HARACTER 

SFILLC,(SP)+ Bs IME FOR A CHARS. ? 
33 GET NEXT 


1 CHAR. 
013746 $NULL , = (SP) 3 FILLER CHARS. NEEDED 
; L CHAR. 


105366 : 1(SP) $3 L_ NEED TO BE TYPED? 
002770 T 6$ 33 “G0 POP THE NULL OFF OF STACK 


) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 


qd 
q 
q 
1 
1 
.¢ 
q 
qd 
q 
(1 
1 
qd 
1 
1 
(1 
(1 
.¢ 
qd 
qd 
(1 
(1 
(1 
qd 
qd 
(1 
(1 
(1 
1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
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020564 004737 020622 JSR PC ,$TYPEC 33G0 TYPE A NULL 
020570 105337 020666 DECB SCHARCHT 32:D0 NOT COUNT AS A COUNT 
020574 000770 BR 7$ ; LOOP 


;HORIZONTAL TAB PROCESSOR 


020576 112716 000040 8$: #° ,(SP) : ;REPLACE ay WITH SPACE 
020602 00473 9$: PC, $TYPEC nM. SPACE 
5 ane ONT. IF NOT AT 


(SP)+ ‘POP SPACE OFF STACK 
2$ 33GET NEXT CHARACTER 
a$TPS 3zWAIT UNTIL PRINTER IS READY 


STYPEC 
160314 2(SP) ,aSTPB LOAD CHAR TO BE TYPED INTO DATA REG. 
000002 _—* HIS Sage A CARRIAGE RETURN? 


H IF NO 
:EYES--CLEAR CHARACTER COUNT 
1$: :21S og et A LINE FEED? 


INCB C CTER 
SCHARCNT : . WORD CHARACTER COUNT STORAGE 
STYPEX: RTS P 


-SBTTL APT COMMUNICATIONS ROUTINE 


LE RRR RRR RERRRERRRR RRR RA ERR ERR REAR RARERER RE RRRRRRRERR 
021136 : MOVB #1,SFFLG 3:TO REPORT FATAL ERROR 
021134 : MOVB #1,SMFLG 3:TO TYPE A MESSAGE 


SATYC 
021136 : #1,SFFLG 3:TO ONLY REPORT FATAL ERROR 


RO,-(SP) 33PUSH RO ON foara 

R1,~(SP) 3=PUSH R1_ON STACK 

SMFLG ay TYPE A MESSAGE? 

5$ :IF NOT: BR 

#APTENV, SENV : OPERATING UNDER APT? 
#APTSPOOL , SENVM $3 SHOULD ty MESSAGES? 

a4 (SP) ,RO 33GET MESSAGE ADDR. 

#2,4(SP) 3 ;BUMP RETURN ADDR. 
SMSGTYPE 23 SEE IF DONE W/ LAST XMISSION? 
1$ NOT: WAIT 


RO, SMSGAD ::PUT ADDR IN MAILBOX 
(RO) + FIND END OF MESSAGE 


2s 

SMSGAD ,RO 3;SUB START OF MESSAGE 

RO 3:GET MESSAGE LNGTH IN WORDS 
RO, $MSGLGT 33PUT LENGTH IN MAILBOX 

~ lai 3;TELL APT TO TAKE MSG. 


a4 (SP) ,.4$ ;;PUT MSG ADDR IN JSR LINKAGE 
000002 #2,4(SP) “BUMP RETURN ADDRESS 
177776 177776, =(SP) PUSH 179776 ON STACK 


NW tt 2 oh ot 9 2 a St os 


ee ee ee ee ee ee ee ee ee ee ee ae ee eee ee ele le les es SJ See ee we eee we wee we 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
3 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
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( 
( 
( 
( 
( 
( 
( 
( 
( 
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( 
( 
( 
( 
( 
( 
( 
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004737 020410 PC,STYPE ;;CALL TYPE MACRO 
000000 . 0 


105737 021136 $: SEFLG : SHOULD REPORT FATAL ERROR? 
SENV : :RUNNING UNDER APT? 


12$ BR 
SMSGTYPE : 3 INI SHED ue MESSAGE ? 


11$ 

@4(SP),SFATAL  ::GET NERROR ae 

#2,4(SP) ;BUMP RETURN ADDR. 
SMSGTYPE +e TELt abt TO TAKE ERROR 
SFFLG 

SLFLG 

SMFLG 

(SP)+,R1 

mee -RO + ¢POP STACK INTO RO 


7 RETURN 
SMFLG: 0 :OMESSG. FLAG 
SLFLG: 0 77;L0G FLAG 
SFFLG: 0 SiFATAL FLAG 


APTSIZE=200 


SURGERUSOR 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


ee Nee ee ee ee eae ae ae ee ae ae ae ae 


APTCSUP=040 
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-SBTTL POWER DOWN AND UP ROUTINES 


<RRRRRRREERRERER ERR EREREEEREAA ERR ER RRA AERA RRERRRRREA RARER 
{POWER _DOWN ROUT INE 
012737 #SILLUP ,a#PWRVEC ot yf FOR FAST UP 
00034 oat arPuRVEC 2 si 0:7 
PUSH RO ON STACK 


7:PUSH R1 ON STACK 
‘PUSH R2 ON STACK 
3zPUSH R35 ON STACK 


157744 ;;PUSH @SWR ON STACK 
021304 ;;SAVE SP 
021212 #SPWRUP, @ePWRVEC 3 SET UP VECTOR 
7 HANG UP 
FERRARA EERE RRREREERAERERRRERRRERRKRRRRRRERREE RRR 


“POWER UP ROUTINE 
$PWRUP: MO #SILLUP Q#PURVEC SET FOR FAST DOWN 


tery b LOOP FOR THE TTY 
1$: WAIT FOR THE INC 
BNE $ 33 WORD 


157676 


; STACK 0 
021140 #SPWRDN , @APWRVEC $:SET UP THE POWER DOWN VECTOR 
000340 MOV #340, a#PWRVEC+2 ;:PRIO:7 
REPORT THE POWER FAILURE 
SPOWER 3;POWER FAIL MESSAGE POINTER 


72 THE POWER UP SEQUENCE WAS STARTED 
72 33 BEFORE THE POWER DOWN WAS COMPLETE 


eASCIZ <15><12>' POWER’’ 
EVEN 


021306 
021314 
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CVMNCB.P11 18-SEP-78 18:03 SEQ 0101 


-* 
3*THIS ROUTINE WILL PROTECT THE PROGRAM 
sare INTERUPTS (BAD ONES). 


;*THE TRAP CATCHER IS SET UP FOR 
: - WORD +2 
is JSR PC,RO 


ILLEGAL INTERRUPTS OR INTERRUPTS TO THE WRONG VECTOR 
:*GOTO THE VECTOR AND PICK UP THE *'.+2°' AS AN ADDRESS 


;*AND °'4700°' AS NEW STATUS. 

:*THE .+2 AS A PC WILL CAUSE EXECUTION OF THE ) PC,RO'’ (AN ILLEGAL INSTR.). 
[*AND TRAP TO LOCATION '%4''. IN LOCATION 4 WE HAVE A 

7*POINTER HERE. IF THIS CONDITION CAUSES A TRAP TO LOC. 4. 

:*WE WILL REPORT IT IN THE SAME MANNER THAT WER WOULD 

;*REPORT ANY OTHER ERROR. 

3*I1F A BUSS ERROR TRAP DID OCCUT AND CAUSE A TRAP TO 4. 

>*WE WILL HALT. 


021316 011637 021572 : MOV (SP) ,TRTO GET WHERE WE CAME TO. 
021322 162737 000004 021572 SUB #4,TRTO FORM READ ADDR. 


021330 023727 021572 01000 CMP TRTO,41000 3DID TRAP FROM LESS THAN ADDR. 1000? 
021336 003402 BLE 2s 3NO=CONTINUE . 


021340 000000 : HALT 3A BUSS ERROR TIME OUT TRAP BROUGHT US HERE. 
ADDRESS CONTAINED IN TRTO. 


021342 000776 BR 1$ :DON"T ALLOW CONTINUE. 


021344 016637 021574 : MOV 4(SP) , TRFRO ;GET TRAPPED FROM ADDR. 
021352 062706 ADD #4, SP ;/ADD #4 TO STACK POINTER. 


021356 122737 001102 CMPB #44 ,$TSTNM ;LESS THAN INTERRUPT TESTS? 
021364 003402 BLE 3$ NO MUST BE WRONG VECTOR. 


3: SSSSSSSSSSSSSSSSSSSSSSSS>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
021366 ERROR 4 zERROR! ILLEGAL INTERRUPT OR 
; T WRONG VECT 


3 OBE A 

:DEVICE OTHER THAN THE DEVICE UNDER TEST. 

SIF THE INTERRUPT OCCURED 

DURING AN INTERRUPT TEST, I°D 

+ SUSPECT A PROBLEM WITH THE yevics UNDER TEST. 
THE ADDRESS THE INTERRUP 

;VECTORED TO IS WITHIN THE RANGE OF 

sVEC CTORS ASSIGNED TO THE DEVICE, 

;THEN I°D SUSPECT THE DEVICE 


SI 
sRANGE ASSIGNED TO THE Device 
31°D SUSPECT THAT THE 
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DEVICE PUT THE WRONG INTERRUPT 
VICTOR ON THE BUS DURING THE INTERRUPT 


; NOTE: 
sFOR THIS ERROR = DON'T USE 
ON ERROR’’ OPTION. 
SALSO EXPECT THAT THE INTERRUPT TEST TO 
WILL REPOT THAT THE DEVICE DIDN'T 
; INTERRUPT. 
[FOLLOW THE RECOMMENDED PROCEEDURE 


> IN THE DOCUMENT (ON THIS DIAGNOSTIC) 
FOR LOOPING ON TEST. 


js SSSSSSSSSSSSSSSSSSSSSSES>>> ERROR <<<S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


3$: (SP) +, (SP)+ CLEAN THE STACK 
001202 $PASS :IS THIS THE FIRST PASS 
4$ [NO DONT REPORT 
024073 VTMSG ;TELL THE OPER. 
001206 MOV +: felt 


NOP 
024121 VTMSG3 ; TYPE EXPECT. INTR. 
001424 MOV VECT1,-(SP) GET DEFAULT 


001 3,1 
024151 VTMSG1 TYPE RCVD TEXT 
021572 MOV TRTO,~(SP) 3GET ACTUAL 


3,1 


T VTMSG2 zADD REMAINDER TEXT 
157740 4$: V VECTP,aVvECT1 
157736 


#7 ,VECT1 
veCTI. <a 
#2, VECTP 
veCTh -vECT2 
veCT2, VECT2P 
000002 #2,VECT2P 
157314 JMP @$LPADR START TEST OVER AGAIN. 


CONTAINS ADDR. WE TRAPPED OR INTERRUPTED TO. 
CONTAINS ADDR. WE TRAPPED OR INTR. FROM. 
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-SBTTL TRAP DECODER 


{RRRRARRRRRR RRR R RARER AREA RRR ERE R RARER ERR E RRR E RRR RR REE R ERE REE 
:ATHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
:*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 


STRAP: RO,-(SP) 37 SAVE_RO 
000002 2(SP) ,RO + 3GET TRAP ADDRESS 
-(RO) 3 ;BACKUP BY 2 
(RO) ,RO 23GET RIGHT BYTE OF TRAP 
R sPOSITION FOR INDEXING 
021632 STRPAD(RO).RO :; INDEX TO TABLE 
RO 3:60 TO ROUTINE 


33THIS IS USE TO HANDLE THE ‘'GETPRI'’ MACRO 

STRAP2: MOV (SP) ,=(SP) 7sMOVE THE PC DOWN 
MOV 4(SP) ,2(SP) 7sMOVE THE PSW DOWN 
RTI :sRESTORE THE PSW 


-SBTTL TRAP TABLE 


Ft an tp ha an hie an an La an a a a ae el 
eee da ed ed od td nd od = od 2 
ee a a a a a 


s*THIS TABLE CONTAINS Fae ADDRESSES OF THE ROUTINES CALLED 


:*BY THE ‘‘TRAP’’ INSTRUCT 
$TRPAD: P 


TRAP+1(104401) TTY TYPEOUT ROUTINE 
TYPE OCTAL NUMBER (WITH LEADING ZEROS) 


TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
;; CALL=TYPBN TRAP+6(104406) TYPE BINARY (ASCII) NUMBER 


3; CALL=GTSWR TRAP+7(104407) GET SOFT-SWR SETTING 


017316 7; CALL=CKSWR TRAP+10(104410) TEST FOR CHANGE IN SOFT-SwWR 
017660 3 CALL=RDCHR TRAP+11(104411) TTY TYPEIN CHARACTER ROUTINE 
017750 3: CALL=RDLIN TRAP+12(104412) TTY TYPEIN STRING ROUTINE 
020306 3 CALL=RDOCT TRAP+13(104413) READ AN OCTAL NUMBER FROM TTY 
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042040 
051105 
053513 
041517 


0 0 
051105 


053513 
041517 
044530 


EM1: 


.SBTTL 
-ASCIZ 


ASCII MESSAGES 
<15><12>/MNCKW (CLOCK) 


<15><12>/MNCKW (CLOCK) 


<15><12>/MNCKW (CLOCK) 


<200>/MNCKW (CLOCK) 


<15><12>/MNCKW (CLOCK) 


<200>/MNCKW (CLOCK) 


<15><12>@MNCKW (CLOCK) 


<15><12>#MNCKW (CLOCK) 


<200>4MNCKW (CLOCK) 


STATUS FUNCTION ERROR/ 


STATUS DATA ERROR/ 


BUFFER DATA ERROR/ 


INTERRUPT ERROR/ 


COUNT REG. ERROR/ 


EXISTING UNIT FAILED TO RESPOND/ 


COUNT ERROR # 


COUNT FUNCTION ERROR# 


INCORRECT I.D. VALUE# 
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051122 


052111 
041520 


7125 052111 
051122 041520 
052412 044516 
050122 
004522 
027523 


051501 


052412 
051105 050122 


-ASCIZ 


-ASCIZ 


eASCIZ 


-ASCIZ 


-ASCIZ 
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<15><12>MMNCKW (CLOCK) 


<15><12>AMNCKW (CLOCK) 


<15><12>HMNCKW (CLOCK) 


<15><12>#UNIT 


<200>A4UNIT 


<15><12>MUNIT 


<200>AUNIT 


<15><12>#UNIT 


<15><12>#UNIT 


ERRPCA 


ERRPC 


CLOCK INTERRUPT ERROR # 


REPEATABILITY ERROR # 


SEQ 0105 


DOES NOT EXIST <BUS ERROR> CHECK BASE ADDRESS SW 


FROM ADDR.# 


2NDCNT 


1SINCT # 
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-—O g 
oOnuw NO OOP 


MACY11 30A(1052) 
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-ASCIZ 


ASCII 


-ASCII 
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<15><12>#UNIT ERRPC CLOCK ADDR.& 


<200>' PANEL: PULL OUT BOTH ST POTS AND THEN TURN’’ 


<200>°' THEM COMPLETELY CW OR CCW''<200> 


"DWARF: S2 ALL SWITCHES OFF''<200><200> 


/L = LOGIC TEST WITH NO TEST MODULE CONNECTED/ 


15,12 
/D = LOGIC TEST WITH A TEST MODULE CONNECTED TO ONE UNIT/ 


15,12 
/G = GET NEW SWITCH REGISTER VALUE/ 


15,12 


SEQ 0106 
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7477 poh 102 036440 1040 -ASCII /B = BASE OR VECTOR ADDRESS CHANGE/ 


15,12 
/H = HELP THE OPERATOR AND RETYPE THIS LIST 


15,12 
/TYPE THE ‘TEST CHARACTER’’ THEN DEPRESS ‘RETURN KEY'’ / 


<200>/MNCKW (CLOCK) BASE ADDRESS </ 


<200>/MNCKW (CLOCK) VECTOR ADDRESS </ 


: AASCIZ /> 2? / 
: .ASCIZ <200>\PROGRAM DETECTED \ 


FOUND2: .ASCIZ \ MNCKW (CLOCK)'’S \ 
020123 
052117 ERRTOT: .ASCIZ \ ;TOTAL ERROR COUNT = \ 


1 MESGD: .ASCIZ \ ;BAD UNITS \ 
08911 020123 


047115 045503 VIMSG: .ASCIZ <200>/MNCKW (CLOCK) UNIT #/ 
041450 047514 
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045503 
052111 000 
7490 VTMSG3: .ASCIZ <200>/EXPECTED INTERRUPT AT / 
105 4440 


VTMSG1: .ASCIZ / RECEIVED INTERRUPT AT / 


VTMSG2: .ASCII <200>/PLEASE CHECK VECTOR SWITCHES/<200> 


051505 
052123 RESTARTING TEST/<200> 


DT1: . UNI TBD ,SERRPC ,ASR, $BDDAT , SGDDAT .0 


DT2: . UNI TBD, SERRPC ,0 
DT3: UNI TBD, SERRPC ,ABR ,SBDDAT , $GDDAT ,0 


Oo1s72 DT4: ° UNI TBD ,SERRPC ,TRTO, TRFRO,O 
001420 DTl2: . UNI TBD ,SERRPC ,ASR,0 
001420 DT20: . UNI TBD , SERRPC ASR, $BDDAT , SGDDAT .0 
001420 OT22: . UNI TBD ,SERRPC ,ASR,$8DDAT , $TMPO ,0 
001446 DT26: . UNI TBD, SERRPC ,$TMPO,0 

024402 000 DFO: 0,0,0,0,0,0,0 


024405 000 
024410 





F 9 
DIAGNOSTIC MACY11 30A(1052) 23-OCT-78 11:08 PAGE 121 
18-SEP-78 18:03 CROSS REFERENCE TABLE <= USER SYMBOLS SEQ 0109 


5731 5732 
5897* 6042* 612 6140* 
6345 6 


6513* 
6981 990 7002 7019* 7075* 


ae 


ea 


ADDW1 
ADDW1 
ADDW1 
ADDW1 
ADDW1 
ADDW2 
ADDW3 
ADDW4 
ADDWS 
ADDW6 
ADDW7 
ADDW8 
ADDW9 
ADE VC 
ADE VM 


7130* = 7131* 7132 7136* 
9 5998* 999» 0 6001* 6002* 6003*  6004* 6005*  6006* 
6085*  6087* 6091*  6097* 6099 6114* 6119% 6123" 6159* 





G 9 
CVMNC-8 MNCKW DIAGNOSTIC MACY11 30A(1052) 23-OCT-78 11:08 PAGE 121-1 
CVMNCB.P11 18-SEP-78 18:03 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0110 


6232* 6256* 
6281 6303* 


70 
7169* 





9 
CVMNC=8 MNCKW DIAGNOSTIC MACY11 30A(1052) 23-OCT-78 11: 08 PAGE iC A 
CVMNCB.P11 18-SEP-78 18:03 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0111 


CTRCHA 015336 7297 73014 
CTRLCG 015269 7250 oo 7329 


DDISP = 177570 
FO 24402 5689 5694 5699 5705 5710 5715 
5713 5723 74614 


6337 
6368* 


74974 


5800* 5814* 5857 5900 6189 
7181 7220 


5785* 5835* 5853* 5854* 5949* 5951* 7329» 
5866*  5867* 5869 5871 7227 


FOUND2 024003 586 864 
GN stenee 4s 7102 7128 7138 7139 7155 7168 


be of 
000011 

021316 
000020 





§. 
CVMNC=8 MNCKW DIAGNOSTIC MACY11 30A(1052) 23-OCT-78 11:08 PAGE 121-3 
CVMNCB.P11 18-SEP-78 18:03 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0112 


57294 6483* 
57544 


56528 
5791 5816 5826 58324 7251 
The od 5871* 5875* 7233* 7244 7327 


5820 5828 7272 7296 7331 


58874 7271 
74684 


5812 5817 5821 5823 58294 


5841 6482 7327 7329 7331* 
7331 





J 9 
CVMNC-8 MNCKW DIAGNOSTIC MACY11 30A(1052) 23-OCT-78 11:08 PAGE 121-4 
CVMNCB.P11 18-SEP-78 18:03 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0113 


7432 74414 7500 
7197* 7198 7201* 
5815*  5825* 5843 


63624 
6387 


6389 63974 





CVMNC-8 MNCKW 
CVMNCB.P11 


003422 
0 


DIAGNOSTIC 
18-SEP-78 18:03 


9 
MACY11 30A(1052) 23-OCT-78 11: 08 PAGE 121-5 
CROSS REFERENCE TABLE == USER SYMBOLS 


70654 


7430* 
6550*  6563* 


6585* 6591* 
7429 7431* 


7428* 
7436* 


7432* 
7437* 


SEQ 0114 





9 
CVMNC=8 MNCKW DIAGNOSTIC MACY11 30A(1052) 23-OCT-78 11:08 PAGE 121-6 
CVMNCB.P11 18-SEP-78 18:03 CROSS REFERENCE TABLE == USER SYMBOLS 


S$BDDAT 001126 5837* 5904* 
6004 6005* 6007* 6042s 

6177* 6306* 

6721* 6754* 

6990* 7002* 

7160* 7173* 


7498 


7327* 


RSAKKSKER 


7145* 


$HD = 000001 
SHIBTS 001000 





M9 
CVMNC-8 MNCKW DIAGNOSTIC MACY11 30A(1052) 23-OCT-78 11:08 PAGE 121-7 
CVMNCB.P11 18-SEP-78 18:03 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0116 


73324* 
6644 


7336 


7069* 7099% 7153% 7167* 7185* 7329* 7440 
6328*  7068* 71008 7152* 7166* 7184* 7327 


5786 7327 7329 7336 


SSAVR6 021304 
SSCOPE 016476 





9 
CVMNC-8 MNCKW DIAGNOSTIC MACY11 30A(1052) 23-OCT-78 11: 08 PAGE 121-8 
CVMNCB.P11 18-SEP-78 18:03 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0117 


SSETUP= 000117 5775 5786 7236 7327 7329 
$SSTUP = 177777 

pert? 

000214 

167400 


700. 
71514 


7375 


7337 7444 


5869 5873*  7226* 7227 7414 





B 10 
CVMNC-8 MNCKW DIAGNOSTIC MACY11 30A(1052) 23-OCT-78 11:08 PAGE 121-9 
CVMNCB.P11 18-SEP-78 18:03 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0118 


SVECT1 001244 56644 5888 7264 7270* 
56644 


SG4OCAT= seeeee 29 
= 024411 56344 56374 56394 56424 56474 56614 56624 56634 56644 5762 5767 
5772 57864 70724 71024 71394 71684 71864 71874 71884 7236 72814 72824 
73284 7329 73314 7336 73374 7339 74954 
SASTA= xeeeee 
-$x = 001000 





C 10 
CVMNC=8 MNCKW DIAGNOSTIC MACY11 30A(1052) 23-OCT-78 11:08 PAGE 122 
CVMNCB.P11 18-SEP-78 18:03 CROSS REFERENCE TABLE == MACRO NAMES SEQ 0119 


59134 


60094 
15264 
64354 
59604 





D 10 
CVMNC=8 MNCKW DIAGNOSTIC MACY11 30A(1052) 23-OCT-78 11:08 PAGE 122-1 
CVMNCB.P11 18-SEP-78 18:03 CROSS REFERENCE TABLE =~ MACRO NAMES 


6746 6764 6783 6937 6939 6941 
7180 7213 7236 7309 7310 7312 


6001 
69474 


SEQ 0120 


7096 
7236 





E 10 
CVMNC=8 MNCKW DIAGNOSTIC MACY11 30A(1052) 23-OCT-78 11:08 PAGE 122-2 
CVMNCB.P11 18-SEP-78 18:03 CROSS REFERENCE TABLE == MACRO NAMES SEQ 0121 


7332 
7331 


-$400A 
-1170 


- ABS. 024411 


ERRORS DETECTED: 0 


CVMNCB ,, CVMNCB/CRF =CVMNCB. SML.CVMNCB.P11 
RUN-TIME: 20 26 1_SECONDS 

RUN-TIME RATIO: 435/47=9.0 

CORE USED: 36K (71 PAGES) 





